[RESOLVIDO] EPC FP5862

Discussão em 'EMS , HCM e Totvs 11' iniciado por keytech, Junho 9, 2016.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. keytech

    keytech Sem Pontuação

    Bom Dia,
    Estou criando uma epc no fp5862rp (integração comprovante salarial com o bradesco), preciso mudar a descrição do evento da folha, incluindo as horas, estou retornando na tt-epc.val-parameter o valor alterado, porém o sistema não gera com essas informações. Alguém sabe como interagir com esse programa?
    Segue meu programa:

    Código:
    {include/i-epc200.i1}
    
    /* Parametros */
    def input param  p-ind-event as char no-undo.
    def input-output param table for tt-epc.
    
    DEF VAR c-quant AS CHAR NO-UNDO.
    DEF VAR c-aux   AS CHAR FORMAT "X(20)" NO-UNDO.
    
    DEF BUFFER btt-epc FOR tt-epc.
    
    OUTPUT TO "c:\temp\epc.txt" APPEND.
    FIND FIRST tt-epc
       WHERE tt-epc.cod-event = "tt-movto-esp"
       NO-LOCK NO-ERROR.
    IF AVAIL tt-epc THEN DO:
    
    
        ASSIGN c-quant = ENTRY(5,tt-epc.val-parameter,"|")
               c-aux   = ENTRY(2,tt-epc.val-parameter,"|").
        IF c-quant = "0" THEN
            c-quant = "".
    
        IF c-quant <> "" THEN
            c-aux = c-aux + " " + c-quant.
    
        ASSIGN ENTRY(2,tt-epc.val-parameter,"|") = c-aux.
       
    
        PUT UNFORMATTED
            'p-ind-event '   p-ind-event SKIP
            'cod-event '     tt-epc.cod-event     SKIP
            'cod-parameter ' tt-epc.cod-parameter SKIP
            'val-parameter ' tt-epc.val-parameter SKIP
            'c-quant ' c-quant
            SKIP(1).
    
       
    
    END.
    OUTPUT CLOSE.
    
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página