01. DADOS GERAIS
Produto: | TOTVS Gestão Jurídica - Linha SISJURI |
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | Jurídico |
Módulo: | TOTVS Gestão Jurídica - Linha SISJURI - Pré Faturamento de Serviços (SIGAPFS) |
Função: | Emissão de Faturas - JURA203 |
País: | Brasil |
02. DESCRIÇÃO
Localização | Atualizações >> Movimentações >> Emissão de Faturas | ||||||||||||||||||||||||||||||||||||||||||||||||||
Parâmetro |
| ||||||||||||||||||||||||||||||||||||||||||||||||||
Retorno | Não se aplica |
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