Histórico da Página
...
Execução automática (ExecAuto) da realizando a operação de inclusão de um título a receber utilizando exemplos com e sem rastreio.
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#Include 'Protheus.ch' #include "tbiconn.ch" //Inclusão de títulos a receber com desdobramento sem rastreio User Function DESDOBR() Local aTitulo := {} Local cPrefixo := "TST" //Prefixo utilizado Local cNumTitulo Local cCliente := "000001" //Código do cliente Local cLoja := "01" //Loja Local cTipo := "NF" //Tipo do título Local cNatureza := "001" //Natureza utilizada PRIVATE lMsErroAuto := .F. //Numeracao do titulo destino (opcional) cNumTitulo := GetSX8Num("SE1","E1_NUM") dbSelectArea("SE1") dbSetOrder(2) If MsSeek(xFilial("SE1")+cCliente+cLoja) begin transaction aTitulo := {{"E1_PREFIXO" , cPrefixo ,Nil},; {"E1_NUM" , cNumTitulo ,Nil},; {"E1_PARCELA" , " " ,Nil},; {"E1_TIPO" , cTipo ,Nil},; {"E1_NATUREZ" , cNatureza ,Nil},; {"E1_CLIENTE" , PADR(cCliente,TamSx3("E1_CLIENTE")[1]) ,Nil},; {"E1_LOJA" , PADR(cLoja,TamSx3("E1_LOJA")[1]) ,Nil},; {"E1_EMISSAO" , dDataBase,Nil},; {"E1_VENCTO" , dDataBase,Nil},; {"E1_VENCREA" , dDataBase,Nil},; {"E1_VALOR" , 1000 ,Nil },; {"E1_DESDOBR" ,"S" ,Nil }} aAdd(aTitulo,{"AUTHISTDSD","SEM RASTREIO",Nil}) //Historico aAdd(aTitulo,{"AUTNPARDSD",2,Nil}) // Numero de parcelas aAdd(aTitulo,{"AUTTOPADSD","T",Nil}) // Valor T = TOTAL ou P = PARCELA aAdd(aTitulo,{"AUTPERIDSD",30,Nil}) // Periodo MSExecAuto({|x,y,z| Fina040(x,y,z)},aTitulo,3) If lMsErroAuto MostraErro() Else conout("Titulo incluído com sucesso") Endif End transaction EndIf Return |
...
Bloco de código | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
#Include 'Protheus.ch' #include "tbiconn.ch" //Inclusão de títulos a receber com desdobramento e com rastreio User Function DESDOBR() Local aTitulo := {} Local cPrefixo := "TST" //Prefixo utilizado Local cNumTitulo Local cCliente := "000002" //Código do cliente Local cLoja := "01" //Loja Local cTipo := "NF" //Tipo do título Local cNatureza := "001" //Natureza utilizada PRIVATE lMsErroAuto := .F. //Numeracao do titulo destino (opcional) cNumTitulo := GetSX8Num("SE1","E1_NUM") dbSelectArea("SE1") dbSetOrder(2) If MsSeek(xFilial("SE1")+cCliente+cLoja) begin transaction aTitulo := {{"E1_PREFIXO" , cPrefixo ,Nil},; {"E1_NUM" , cNumTitulo ,Nil},; {"E1_PARCELA" , " " ,Nil},; {"E1_TIPO" , cTipo ,Nil},; {"E1_NATUREZ" , cNatureza ,Nil},; {"E1_CLIENTE" , PADR(cCliente,TamSx3("E1_CLIENTE")[1]) ,Nil},; {"E1_LOJA" , PADR(cLoja,TamSx3("E1_LOJA")[1]) ,Nil},; {"E1_EMISSAO" , dDataBase,Nil},; {"E1_VENCTO" , dDataBase,Nil},; {"E1_VENCREA" , dDataBase,Nil},; {"E1_VALOR" , 1000 ,Nil },; {"E1_DESDOBR" ,"S" ,Nil }} aAdd(aTitulo,{"AUTHISTDSD","COM RASTREIO",Nil}) //Historico aAdd(aTitulo,{"AUTNPARDSD",2,Nil}) // Numero de parcelas aAdd(aTitulo,{"AUTTOPADSD","T",Nil}) // Valor T = TOTAL ou P = PARCELA aAdd(aTitulo,{"AUTPERIDSD",30,Nil}) // Periodo MSExecAuto({|x,y,z| Fina040(x,y,z)},aTitulo,3) If lMsErroAuto MostraErro() Else conout("Titulo incluído com sucesso") Endif End transaction EndIf Return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas