Versions Compared

Version Old Version 8 New Version 9
Changes made by

Leopoldo Michelin de Oliveira

Leopoldo Michelin de Oliveira

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Expand
titleWAM-Pedido não disponível para pré-faturamento
Panel
panelIconId1f321
panelIcon:thermometer:
panelIconText🌡️
bgColor#FFEBE6

Situação:

Os pedidos indicados abaixo estão liberados para a Logística, entretanto, estão pendentes de integração, constam com status  “  WAM-Pedido não disponível para pré-faturamento ”:

Tip

Possíveis Soluções:

Estes pedidos, estão com um problema que começou a aparecer alguns dias atrás e o Jesus já tinha falado com o Emerson, sobre pedidos de origem do "moun", que tiveram credito bloqueado automaticamente e que depois que foram liberados manualmente pelo cm0201, continuam com o dsp-pre-fat = no. O Emerson falou que já fez um acerto na trigger para acertar isso, mas ainda não subiu em produção. Ele também liberou alterarmos estes pedidos para dsp-pre-fat = yes.

 

FOR EACH ped-venda

   WHERE  Verificar a origem do pedido.

Code Block
FOR EACH mopd-ext-ped-venda
    WHERE mopd-ext-ped-venda.nr-pedcli = "número do pedido pai" NO-LOCK.
    DISP  mopd-ext-ped-venda.nr-pedcli mopd-ext-ped-venda.nome-programa.
END.
Image Added

Code Block
FOR EACH ped-venda
   WHERE ped-venda.nr-pedcli = "número do pedido pai" NO-LOCK.
     DISP ped-venda.cod-estabel  
         ped-venda.cod-emitente 
         ped-venda.nr-pedcli    
         ped-venda.cod-sit-ped 
         ped-venda.cod-sit-aval WITH SCROLLABLE.
END.

Verificar a Situação Avaliação de Crédito e Origem do Pedido em Lote.

Situação (Aberto = 1 / Suspenso = 5)

Situação Aval Credito (Aprovado = 3 / Não Aprovado = 4)

Code Block
DEF TEMP-TABLE tt-pedido
         FIELD nr-pedcli LIKE ped-venda.nr-pedcli.
  
INPUT FROM "i:\leopoldo\pedidos.csv". // Lista de códigos de pedidos
REPEAT:
    CREATE tt-pedido.
    IMPORT DELIMITER ";" tt-pedido.
END.
INPUT CLOSE.

OUTPUT TO i:\leopoldo\sit_aval_pedidos.csv.
PUT UNFORMATTED
               "ESTAB" ";"
               "CLIENTE" ";"
               "PEDIDO" ";"
               "SITUACAO" ";"
               "SIT AVAL" ";"
               "NOME PROG" SKIP.

FOR EACH tt-pedido WHERE
         tt-pedido.nr-pedcli <> "": //Diferente de branco na tt-pedido
    
    PROCESS EVENTS. // Para não travar a tela quando lê muitos dados

FOR EACH ped-venda
   WHERE ped-venda.nr-pedcli = tt-pedido.nr-pedcli NO-LOCK.
    
    FOR EACH mopd-ext-ped-venda
    WHERE mopd-ext-ped-venda.nr-pedcli = tt-pedido.nr-pedcli NO-LOCK.

   PUT UNFORMATTED
         ped-venda.cod-estabel            ";"
         ped-venda.cod-emitente           ";"
         ped-venda.nr-pedcli              ";"
         ped-venda.cod-sit-ped            ";"
         ped-venda.cod-sit-aval           ";"
         mopd-ext-ped-venda.nome-programa SKIP.
    END.
END.
END.
OUTPUT CLOSE.
Image Added

Alterar para disponível para faturamento

Code Block
FOR EACH ped-venda
   WHERE ped-venda.nr-pedcli = "6479515"
OR         
 OR
         ped-venda.nr-pedcli = "6479515A":
    DISP 

    DISP ped-venda.nr-pedcli
         

         ped-venda.dsp-pre-fat.
  //ASSIGN ped-venda.dsp-pre-fat = yes.
END.
  //ASSIGN 
Alterar para disponível para faturamento em Lote
 Code Block
DEF TEMP-TABLE tt-pedido
         FIELD nr-pedfat LIKE ped-venda.nr-pedcli.
  
INPUT FROM "i:\leopoldo\pedidos.csv". //Lista Pedidos FILHO!!
REPEAT:
    CREATE tt-pedido.
    IMPORT DELIMITER ";" tt-pedido.
END.
INPUT CLOSE.

OUTPUT TO i:\leopoldo\pedidos_fat.csv.
PUT UNFORMATTED
               "ESTAB" ";"
               "CLIENTE" ";"
               "PEDIDO" ";"
               "SITUACAO" ";"
               "SIT AVAL" ";"
               "DISP FAT" SKIP.

FOR EACH tt-pedido WHERE
         tt-pedido.nr-pedfat <> "": //Diferente de branco na tt-pedido
    
    PROCESS EVENTS. // Para não travar a tela quando lê muitos dados

FOR EACH ped-venda
   WHERE ped-venda.nr-pedcli = tt-pedido.nr-pedfat:
     
  //ASSIGN ped-venda.dsp-pre-fat = yes.

     PUT UNFORMATTED
         ped-venda.
END.
cod-estabel            ";"
         ped-venda.cod-emitente           ";"
         ped-venda.nr-pedcli              ";"
         ped-venda.cod-sit-ped            ";"
         ped-venda.cod-sit-aval           ";"
         ped-venda.dsp-pre-fat            SKIP.
END.
END.
Image AddedImage Added
Depois que altera, muda oara Wan-Aguard. Processo Integração.
Image Added
Então o RPW roda, ficando como enviado e em seguida Integração ok, quando recebe retorno do Wamas que recebeu a integração.
Image AddedImage Added
Depois que recebe o retorno  do Wamas, vai para a fila de faturamento automático.
Image Added
Faturou automático.
Image Added
 Expand
titleNota de Devolução 85% não Liberada para Atualizar
 Panel
panelIconId1f321
panelIcon:thermometer:
panelIconText🌡️
bgColor#FFEBE6
Situação:
SANTIBR-68897 Liberação de Documento para Atualização
Bom dia! Por gentileza, liberar os documentos indicados abaixo para atualização. Informo que já foram processados no WMS Wamas, estão com avanço de 85%, mas não está sendo possível finalizar a conferência sistêmica.
 Tip
Possíveis Soluções:
O Documento ainda não está Lib. Atualiz. Manual , porque consta como documento enviado para o Wamas e no MOWA0019 está como Integrado OK.
 Esse problema é o mesmo ocorrido no chamado SANTIBR-66823 e ocorre com todas as Devoluções de Venda e de Consignação. Enquanto a Schaefer não corrigir o problema da IG500 do Wamas, esse problema irá ocorrer, a Ana Paula está homologando a versão de homologação do Wamas.
Consultando no MOWA0019 aparece como Integração OK
Consultar o RE2001 se o documento está como não atualizado.
 Code Block
FOR EACH doc-fisico
   WHERE doc-fisico.serie-docto = "1"
     AND doc-fisico.nro-docto = "0001232"
     AND doc-fisico.cod-emitente = 523163 NO-LOCK:

    DISP doc-fisico.situacao WITH SCROLLABLE.
END.
Alterar a situação de integrado OK para Lib. Atualiz. Manual.
 Code Block
FOR EACH wam-doc-fisico
   WHERE wam-doc-fisico.serie-docto = "1"
     AND wam-doc-fisico.nro-docto = "0001232"
     AND wam-doc-fisico.cod-emitente = 523163:

    DISP wam-doc-fisico.serie-docto
         wam-doc-fisico.nro-docto
         wam-doc-fisico.cod-emitente
         wam-doc-fisico.situacao WITH 1 COL 2 DOWN SCROLLABLE.
    //UPDATE wam-doc-fisico.situacao.
END.
Agora o documento está disponível para ser atualizado no RE2001 e seguir o fluxo do processo.
...