Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
{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. |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas