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: | Operação de Pré-Faturas - JURA202 |
País: | Brasil |
02. DESCRIÇÃO
Localização | Atualizações >> Movimentações >> Operação de Pré-Faturas | ||||||||||||||||||||||||||||||||
Parâmetro |
| ||||||||||||||||||||||||||||||||
Retorno | Não se aplica |
03. DEMAIS INFORMAÇÕES
User Function JA202TR
Local aParam := aClone(PARAMIXB)
Local cCasoAnt := AllTrim(aParam[3])
Local cCasoNew := AllTrim(aParam[6])
Local cTS := AllTrim(aParam[7])
Local aAreaNUE := NUE->(GetArea())
Local aArea := GetArea()
Local nTpEmail := GetNewPar('MV_ADVEMTS',0) //Verifica se envia e-mail ou nao: 0=Nunca;1=Somente TS em pre-fatura;2=Todos TS
If !Empty(cCasoAnt) .And. !Empty(cCasoNew) .And. cCasoAnt != cCasoNew .And. nTpEmail != 0
NUE->(DbSetOrder(1))
NUE->(DbSeek(xFilial('NUE')+cTS))
U_ADVMailTS(cCasoAnt,cCasoNew)
EndIf
NUE->(RestArea(aAreaNUE))
RestArea(aArea)
Return Nil
04. ASSUNTOS RELACIONADOS