PE JA203ADI Complementar a gravação de fatura após a utilização dos adiantamentos

01. DADOS GERAIS

02. DESCRIÇÃO

03. DEMAIS INFORMAÇÕES

User Function JA203ADI

Local aArea     := GetArea()
Local aAreaNXA  := NXA->(GetArea())
Local aAreaSE1  := SE1->(GetArea())
Local aAreaNWF  := NWF->(GetArea())
Local aRecRA    := PARAMIXB[1]
Local cQuery    := ''
Local cAlias    := GetNextAlias()

Private JA204CODMOT := ''

If !Empty(aRecRA)

    SE1->(DbGoTo(aRecRA[1]))

    cQuery := "Select NWF__FATPF "
    cQuery += "  From " + RetSqlName('NWF') + " NWF "
    cQuery += " Where NWF_FILIAL = '" + xFilial('NWF') + "' "
    cQuery += "   And NWF_TITULO = '" + SE1->E1_NUM + "' "
    cQuery += "   And D_E_L_E_T_ = ' ' "

    cQuery := ChangeQuery(cQuery)
   
    If Select(cAlias) > 0
        (cAlias)->(DbCloseArea())
    EndIf
   
    dbUseArea( .T., "TOPCONN", TCGenQry( Nil, Nil, cQuery ), cAlias, .T., .F. )
   
    If !(cAlias)->(Eof())

        NXA->(RecLock('NXA',.F.))
        NXA->NXA__FATPF := (cAlias)->NWF__FATPF
        NXA->(MsUnlock())
       
    EndIf
   
    (cAlias)->(DbCloseArea())

EndIf

NXA->(RestArea(aAreaNXA))
SE1->(RestArea(aAreaSE1))
NWF->(RestArea(aAreaNWF))
RestArea(aArea)

Return

04. ASSUNTOS RELACIONADOS

• Emissão de Faturas - JURA203