[RESOLVIDO] UPC nos programas FT4002/FT4003

Discussão em 'EMS , HCM e Totvs 11' iniciado por lm1979, Maio 21, 2015.

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

    lm1979 Membro Participativo

    Boa tarde,
    Eu estou com a seguinte atividade:
    - Desenvolver uma UPC para alimentar os dados do "Transportador" quando o mesmo for "O Próprio".

    O programa FT4002/4003 utiliza a tabela wt-docto, existe alguma forma de eu enviar os dados do cliente/fornecedor, como endereço, cidade, UF, CEP para a tabela wt-docto? Tem alguma BO ou outra coisa do gênero?

    Att,
    Leandro.
    lm1979, Maio 21, 2015
    #1
  2. elmo

    elmo Membro Ativo

    Boa tarde,
    Qual informação você coloca no campo transportador nesses casos?
    Essa alteração não interfere na geração do XML?

    Talvez desenvolver uma Trigger de Write possa ajudar.
    elmo, Maio 21, 2015
    #2
  3. lm1979

    lm1979 Membro Participativo

    Boa tarde,
    No campo transportador eu informo "O Próprio".
    Sim esses dados vão para o XML.

    Eu nunca fiz uma trigger.

    Att.
    lm1979, Maio 21, 2015
    #3
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    exemplo .....
    Código:
    DEF PARAMETER BUFFER b-nota-fiscal      FOR nota-fiscal.
DEF PARAMETER BUFFER b-old-nota-fiscal  FOR nota-fiscal.

DEF NEW GLOBAL SHARED VAR c-seg-usuario AS CHAR FORMAT "x(12)" NO-UNDO.

DEF VAR level AS INT INITIAL 1.
DEF VAR c-arquivo AS CHAR FORMAT "x(50)" .

{utp/ut-glob.i}                           

if  SUBSTRING(b-nota-fiscal.char-2,3,60) <> SUBSTRING(b-old-nota-fiscal.char-2,3,60) THEN DO:
                                           
    ASSIGN c-arquivo = "C:/DATASUL/SPOOL/tw-chave" + b-nota-fiscal.nr-nota-fis + ".txt".

    OUTPUT TO VALUE(c-arquivo) APPEND CONVERT TARGET "iso8859-1". 

    DISP skip "Cod Estabel...........: " b-nota-fiscal.cod-estabel                  NO-LABEL
         SKIP "Serie.................: " b-nota-fiscal.serie                        NO-LABEL
         SKIP "Nr Nota Fis...........: " b-nota-fiscal.nr-nota-fis                  NO-LABEL
         SKIP "Chave Antiga..........: " SUBSTRING(b-old-nota-fiscal.char-2,3,60)   NO-LABEL    FORMAT "x(60)"
         SKIP "Chave Nova............: " SUBSTRING(b-nota-fiscal.char-2,3,60)       NO-LABEL    FORMAT "x(60)"
         skip "Data..................: " today
         skip "Hora..................: " string(time,"hh:mm:ss")
         skip "Usuario...............: " c-seg-usuario                              NO-LABEL .

    REPEAT WHILE PROGRAM-NAME(level) <> ?.
        DISPLAY LEVEL PROGRAM-NAME(level) FORMAT "x(60)" SKIP.
        level = level + 1.                                   
    END.                                                     
    OUTPUT CLOSE.                                            
END.
    bootstrapmaster, Maio 21, 2015
    #4
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página