Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Joao Pedro dos Santos Neto

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Joao Pedro dos Santos Neto

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. DADOS GERAIS

Produto:

Solucoes_totvs_parceiros
SolucaoParceirosTOTVS Gestão Jurídica - Linha SISJURI

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoJurídico

Módulo:

Modulos_totvs_juridico
ModulosTOTVSJuridicoTOTVS 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çãoAtualizações >> Movimentações >> Operação de Pré-Faturas
Parâmetro
NomeTipoDescriçãoObrigatório
PARAMIXB[1]caractere

Código do Cliente antigo

Sim
PARAMIXB[2]caractere

Código da Loja antigo

Sim

PARAMIXB[3]caractere

Código do Caso antigo

Sim
PARAMIXB[4]caractere

Código do Cliente novo

Sim
PARAMIXB[5]caractere

Código da Loja nova

Sim
PARAMIXB[6]caractere

Código do Caso novo

Sim
PARAMIXB[7]caractere

Código da Despesa

Sim
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

...