Histórico da Página

{include/i-epc200.i1} /* Definição tt-epc         */
DEFINE VARIABLEINPUT h-ttDados    AS HANDLE  PARAM    NO-UNDO.
DEFINE VARIABLE bf-ttDados p-ind-event  AS HANDLE     CHAR NO-UNDO.
DEFINE VARIABLEINPUT-OUTPUT qttDadosPARAM TABLE    AS HANDLE      NO-UNDO.
DEFINE VARIABLE h-codEstabel AS HANDLE      NO-UNDO.for tt-epc.

DEFINE VARIABLE hc-serie      literal AS HANDLE   CHARACTER   NO-UNDO.
DEFINE VARIABLE h-nrNotaFis  AS HANDLE      NO-UNDO.
DEFINE VARIABLE h-nrSeqFat   AS HANDLE      NO-UNDO.
DEFINE VARIABLE h-itCodigo   AS HANDLE      NO-UNDO.

DEFINE INPUT        PARAM p-ind-event  AS CHAR NO-UNDO.
DEFINE INPUT-OUTPUT PARAM TABLE for tt-epc.

IF (p-ind-
IF p-ind-event = "Custom-literals" THEN DO:

    FOR EACH tt-epc 
        WHERE tt-epc.cod-event = "Custom-literals") THEN DO:U

     CREATE tt-epc.
    ASSIGNAND tt-epc.cod-eventparameter = "Custom-literals"
literal":U:

          IF tt-epc.codval-parameter = "#lit-var-espec-teste1" THEN
            ASSIGN tt-epc.val-parameterc-literal = "Literal Teste"Lit.

   teste 1"END.

    CREATE tt-epc.
    ASSIGN tt-epc.cod-event     = "Custom-literals"p-ind-event
           tt-epc.cod-parameter = "#lit-var-espec-teste2teste1"
           tt-epc.val-parameter = "Lit teste 2"c-literal.

END.

ELSE IF (p-ind-event = "Custom-Fields-tt-dadosdocum-notasest") THEN DO:

    /* Handle ttDados */
    FIND FIRST tt-epc
         WHERE tt-epc.cod-parameterevent = "Handle_tt-dados-nota":u NO-ERROR.

p-ind-event
    IF AVAIL tt-epc THEN DO:

        ASSIGN h-ttDados = WIDGET-HANDLE(AND tt-epc.valcod-parameter) NO-ERROR.

        IF ERROR-STATUS:ERROR THEN
            NEXT.

        CREATE BUFFER bf-ttDados FOR TABLE h-ttDados BUFFER-NAME "tt-dados-nota".
        CREATE QUERY qttDados.
        qttDados:SET-BUFFERS(bf-ttDados).
 = "rowid-docum-est" NO-LOCK NO-ERROR.
    IF AVAIL   IF VALID-HANDLE(qttDados)tt-epc THEN
            ASSIGN qttDados:FORWARD-ONLY = YES.
 DO:
        qttDados:QUERY-PREPARE("FOR EACH tt-dados-nota").
        qttDados:QUERY-OPEN.
        qttDados:GET-FIRST.

        DO WHILE NOT(qttDados:QUERY-OFF-END):
FIND FIRST docum-est
            ASSIGN h-codEstabel       = bf-ttDados:BUFFER-FIELD("cod-estabel") 
                   h-serie            = bf-ttDados:BUFFER-FIELD("serie")
                   h-nrNotaFis        = bf-ttDados:BUFFER-FIELD("nr-nota-fis")
                   h-nrSeqFat         = bf-ttDados:BUFFER-FIELD("nr-seq-fat")WHERE ROWID(docum-est) = TO-ROWID(tt-epc.val-parameter) NO-LOCK NO-ERROR.
        IF           h-itCodigo         = bf-ttDados:BUFFER-FIELD("it-codigo").
 AVAIL docum-est THEN DO:
         
        CREATE tt-epc.
        ASSIGN tt-epc.cod-event = "Custom-Fields-tt-dados-notas"
              ASSIGN tt-epc.cod-parameterevent = "#var-espec-teste1"
               tt-epc.val-parameter = "Estabelecimento: " + h-codEstabel:BUFFER-VALUE + "| Série: " + h-serie:BUFFER-VALUE + "| Nr Nota Fis: " + h-nrNotaFis:BUFFER-VALUE.
    
= p-ind-event
         CREATE tt-epc.
        ASSIGN tt-epc.cod-eventparameter = "Custom#var-Fields-tt-dados-notas"
               tt-epc.cod-parameter = "#var-espec-teste2"
espec-teste1"
                   tt-epc.val-parameter = "NrVAR Seqteste Fat: " + h-nrSeqFat:BUFFER-VALUE + "| Item: " + h-itCodigo:BUFFER-VALUE.

            qttDados:GET-NEXT1".
        END.

    END.

END.

RETURN "OK":U.