Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

Execução automática (ExecAuto) realizando a operação de inclusão de um título a receber utilizando exemplos com e sem rastreio.

02. EXEMPLO DE UTILIZAÇÃO

Exemplo 1 - Título a receber com desdobramento sem rastreio

Importante

MV_NRASDSD = .T.

Exemplo 
#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


Exemplo 2 - Título a receber com desdobramento com rastreio

Importante

MV_NRASDSD = .F.

Exemplo 
#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