Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. VISIÓN GENERAL

Ejecución automática (ExecAuto) realizando la operación de inclusión de un título por cobrar utilizando ejemplos con y sin rastreo.

02. EjEMPLO DE UTILIZACIÓN

Ejemplo 1 - Título por cobrar con desdoblamiento sin rastreo

Importante

MV_NRASDSD = .T.

Ejemplo 
#Include 'Protheus.ch'
#include "tbiconn.ch"


//Inclusión de títulos por cobrar con desdoblamiento sin rastreo
User Function DESDOBR()
    Local aTitulo       := {}
    Local cPrefixo      := "TST" //Prefijo utilizado
    Local cNumTitulo 
    Local cCliente      := "000001" //Código del cliente
    Local cLoja         := "01" //Tienda
    Local cTipo         := "NF" //Tipo de título
    Local cNatureza     := "001" //Modalidad utilizada

    PRIVATE lMsErroAuto := .F.

    //Numeración del título 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}) //Historial
            aAdd(aTitulo,{"AUTNPARDSD",2,Nil}) // Número de cuotas
            aAdd(aTitulo,{"AUTTOPADSD","T",Nil}) // Valor T = TOTAL o P = CUOTA 
            aAdd(aTitulo,{"AUTPERIDSD",30,Nil}) // Período

            MSExecAuto({|x,y,z| Fina040(x,y,z)},aTitulo,3)

            If lMsErroAuto
                MostraErro()
            Else 
                conout("Titulo incluido con éxito")  
            Endif
        End transaction   
    EndIf   

Return


Ejemplo 2 - Título por cobrar con desdoblamiento con rastreo

Importante

MV_NRASDSD = .F.

Ejemplo 
#Include 'Protheus.ch'
#include "tbiconn.ch"


//Inclusión de títulos por cobrar con desdoblamiento y con rastreo
User Function DESDOBR()
    Local aTitulo       := {}
    Local cPrefixo      := "TST" //Prefijo utilizado
    Local cNumTitulo 
    Local cCliente      := "000002" //Código del cliente
    Local cLoja         := "01" //Tienda
    Local cTipo         := "NF" //Tipo de título
    Local cNatureza     := "001" //Modalidad utilizada

    PRIVATE lMsErroAuto := .F.

    //Numeración del título 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}) //Historial
            aAdd(aTitulo,{"AUTNPARDSD",2,Nil}) // Número de cuotas
            aAdd(aTitulo,{"AUTTOPADSD","T",Nil}) // Valor T = TOTAL o P = CUOTA 
            aAdd(aTitulo,{"AUTPERIDSD",30,Nil}) // Período

            MSExecAuto({|x,y,z| Fina040(x,y,z)},aTitulo,3)

            If lMsErroAuto
                MostraErro()
            Else 
                conout("Titulo incluido con éxito")  
            Endif
        End transaction   
    EndIf   

Return