Histórico da Página

#INCLUDE "TOTVS.CH"

USER FUNCTION F50CARTMP1()
    Local cPadrao := PARAMIXB[1] as character
    Local nTipo := PARAMIXB[2] as numeric
    Local cProg := PARAMIXB[3] as character

    Aviso("AtençãoAtención", "Exemplo de Utilização PE: F50CARTMP1 LP:" + cPadrao + " Programa:" + cProg, {"Ok"})

    If nTipo == 1 // inclusión de prorrateo simple
        // en este caso está activando el campo de usuerio TMP1->CTJ_DOCSUN
        TMP1->CTJ_DOCSUN := CTJ->CTJ_DOCSUN
    EndIf

Return