Criar trigger tabela nota-fisal

Discussão em 'Progress 4GL' iniciado por ivodarocha, Abril 24, 2014.

  1. ivodarocha

    ivodarocha Membro Participativo

    Estou tentando criar uma trigger na tabela nota-fiscal para quando incluir informações, crie o mesmo registro em outra tabela.

    Alguém sabe como fazer?
  2. fdantas

    fdantas Administrator Moderador

    Usar o Buffer-copy Ivo
    ivodarocha curtiu isso.
  3. ivodarocha

    ivodarocha Membro Participativo

    Não sei muito bem como funciona. Criei esta trigger na tabela nota-fiscal. Dá uma olhada

    def param buffer p-table for nota-fiscal.
    def param buffer p-old-table for nota-fiscal.

    DEF BUFFER bf-nfc FOR es-nota-fiscal-canhoto.

    DEF VAR l-achou AS LOG NO-UNDO.

    IF NEW p-table AND p-table.nr-nota-fis <> '' THEN DO:

    FIND FIRST bf-nfc WHERE bf-nfc.cod-estabel = p-table.cod-estabel
    and bf-nfc.serie = p-table.serie
    and bf-nfc.nr-nota-fis = p-table.nr-nota-fis no-lock no-error.

    if NOT avail es-nota-fiscal-canhoto then do :

    CREATE es-nota-fiscal-canhoto.
    ASSIGN es-nota-fiscal-canhoto.cod-estabel = p-table.cod-estabel
    es-nota-fiscal-canhoto.serie = p-table.serie
    es-nota-fiscal-canhoto.nr-nota-fis = p-table.nr-nota-fis.

    END.
    END.

    return "Ok".
  4. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Utilize o comando BUFFER-COPY da seguinte forma, após o CREATE es-nota-fiscal-canhoto. e nao precisa o ASSIGN seguinte

    BUFFER-COPY p-table TO es-nota-fiscal-canhoto.
    ivodarocha curtiu isso.
  5. ivodarocha

    ivodarocha Membro Participativo

    Valeu Srs. deu certo

Compartilhe esta Página