Enviar Pedido para o MOWA0064

Situação:

Monitor Pedidos Divergentes – MOWA0064

De <https://project-tools-santillana.atlassian.net/browse/SANTIBR-72064 >

Boa tarde! @Fábio,

Para conhecimento e autorização para execução da tarefa.

@CAU / @Meijomil Albor,

Por gentileza, enviar o pedido ao “Monitor Pedidos Divergentes – MOWA0064”, conforme abaixo. Informo que detectamos uma unidade não conforme (sem personalização) no ato da conferência e, sobretudo, devemos aguardar o envio gráfico para reposição e envio ao cliente.

CLIENTE	CLIENTE	PEDIDO	ITEM	DESCRIÇÃO	QUANT. (UNIDADES)
SOCIEDADE BR\|EM	ASSOCIACAO CULTURA INGLESA DE	6566649A	20095393	KEEP IT REAL A1 + WB CULTURA ING	499
SOCIEDADE BR\|EM	ASSOCIACAO CULTURA INGLESA DE	6566649A	20098154	KEEP IT REAL! A2 WORKBOOK CI	599
SOCIEDADE BR\|EM	ASSOCIACAO CULTURA INGLESA DE	6566649A	20098212	PERSONAL BEST BRIT A1 BEGINNER SB CI	100
SOCIEDADE BR\|EM	ASSOCIACAO CULTURA INGLESA DE	6566649A	20098223	PERSONAL BEST BRIT A1 BEGINNER WB CI	100
SOCIEDADE BR\|EM	ASSOCIACAO CULTURA INGLESA DE	6566649A	20098234	PERSONAL BEST A2 ELEMENTARY SB CI	150
SOCIEDADE BR\|EM	ASSOCIACAO CULTURA INGLESA DE	6566649A	20098245	PERSONAL BEST A2 ELEMENTARY WB CI	150

Por gentileza, enviar o pedido ao “Monitor Pedidos Divergentes – MOWA0064”, conforme abaixo. Informo que detectamos unidades não conformes no ato da conferência e, sobretudo, não há em estoque para reposição e envio ao manuseador.

CLIENTE	CLIENTE	PEDIDO	ITEM	DESCRIÇÃO	QUANT. (UNIDADES)
SANT75	SANTILLANA EDUCACAO LTDA	6534037A	12117078	DIARIO DO CONTADOR DE HISTORIAS 1	19 UN
SANT75	SANTILLANA EDUCACAO LTDA	6534037A	12117085	DIARIO DO CONTADOR DE HISTORIAS 2	160 UM

Possíveis Soluções:

Rodar o qg Y:\Jesus\qg\pedido-cria-painel-divergencia-mowa0064.p

DEF VAR cNrPedcli LIKE ped-venda.nr-pedcli NO-UNDO.
DEF VAR vItemDiv  LIKE wam-ped-item-div.it-codigo NO-UNDO.
DEF VAR vChamado  AS CHAR NO-UNDO. 

ASSIGN cNrPedcli = "6703939A".         // IMFORMAR O PEDIDO
ASSIGN vItemDiv  = "530149".   tarefa  // INFORMAR O ITEM QUE TEM DIVERGENCIA NA QUANTIDADE
                                       // DEPOIS DE INFORMAR O ITEM APAGAR A PALAVRA TAREFA  
ASSIGN vChamado  = "SANTIBR-81459".    // INFORMAR O CHAMADO

FOR EACH wam-ped-venda WHERE wam-ped-venda.nr-pedcli = cNrPedcli:
    CREATE wam-ped-venda-div.
    ASSIGN wam-ped-venda-div.cod-estabel    = wam-ped-venda.cod-estabel  
           wam-ped-venda-div.dt-acao        = ?      
           wam-ped-venda-div.hr-acao        = ""      
           wam-ped-venda-div.nome-abrev     = wam-ped-venda.nome-abrev   
           wam-ped-venda-div.nr-pedcli      = wam-ped-venda.nr-pedcli    
           wam-ped-venda-div.nr-pedcli-pai  = wam-ped-venda.nr-pedcli-pai
           wam-ped-venda-div.obdNo          = wam-ped-venda.obdNo        
           wam-ped-venda-div.qtd-vol        = 1      
           wam-ped-venda-div.situacao       = 1     
           wam-ped-venda-div.tip-vol        = "CX"      
           wam-ped-venda-div.usuario        = "".     

    FOR EACH wam-ped-item WHERE wam-ped-item.nr-pedcli = wam-ped-venda.nr-pedcli:
        CREATE wam-ped-item-div. 
        ASSIGN wam-ped-item-div.it-codigo     = wam-ped-item.it-codigo   
               wam-ped-item-div.nome-abrev    = wam-ped-item.nome-abrev  
               wam-ped-item-div.nr-pedcli     = wam-ped-item.nr-pedcli   
               wam-ped-item-div.nr-sequencia  = wam-ped-item.nr-sequencia
               wam-ped-item-div.qt-conferida  = wam-ped-item.qt-pedida
               wam-ped-item-div.qt-pedida     = wam-ped-item.qt-pedida   
               wam-ped-item-div.situacao      = 1.
               
    END.
    ASSIGN wam-ped-venda.situacao     = 8
           wam-ped-venda.data-retorno = TODAY
           wam-ped-venda.hora-retorno = STRING(TIME, "HH:MM")
           wam-ped-venda.mensagem     = "Divergência de quantidades, enviado para painel".
  
END.

FOR EACH wam-ped-venda-div WHERE wam-ped-venda-div.nr-pedcli = cNrPedcli:
    FOR EACH wam-ped-item-div WHERE
        wam-ped-item-div.nome-abrev = wam-ped-venda-div.nome-abrev AND
        wam-ped-item-div.nr-pedcli  = wam-ped-venda-div.nr-pedcli  AND
        wam-ped-item-div.it-codigo = vItemDiv:                             
        DISPLAY wam-ped-item-div.it-codigo wam-ped-item-div.qt-pedida.

        UPDATE wam-ped-item-div.qt-conferida.
        FIND FIRST wam-ped-item WHERE
            wam-ped-item.nome-abrev   = wam-ped-item-div.nome-abrev AND
            wam-ped-item.nr-pedcli    = wam-ped-item-div.nr-pedcli  AND
            wam-ped-item.nr-sequencia = wam-ped-item-div.nr-sequencia NO-ERROR.
        IF AVAIL wam-ped-item THEN DO: 
           ASSIGN wam-ped-item.qt-conferida = wam-ped-item-div.qt-conferida
                  wam-ped-item.msg-erp = "Quantidade conferida alterada pelo usuário Ana Paula via chamado: " + vChamado.
        END.
    END.
END.