Liberação de Contrato (Cria Contrato Cliente item)

Situação:

SANTIBR-60382 - Liberação de contrato Mucurici/ES - Soluções Moderna

Pessoal, boa tarde. Precisamos fazer uma troca para o cliente 2443 e por esse motivo precisamos da liberação do contrato para seguir com a pré nota.

42101296	APROVA BRASIL MAT 1 ED3
42101208	APROVA BRASIL POR 1 ED3
42101332	APROVA BRASIL MAT 5 ED3
42101241	APROVA BRASIL POR 5 ED3

SANTIBR-61094 - Liberação de contrato - Juazeiro/BA - Soluções Moderna

Pessoal, bom dia. Precisamos fazer um refaturamento para o cliente 3041 e por esse motivo precisamos da liberação do contrato para seguir com a pré nota.

SANTIBR-61313 - Liberação de Contrato

Possíveis Soluções:

Gerar arquivo CSV (MS-DOS) com CLIENTE;ITEM

Rodar 1a. parte do QG R:\ESP2\qgp\A-cria-contrato-item-46.p, que vai criar o contrato fictício, 9999, para o cliente/itens e informar a usuária para, assim que realizar a devolução, avisar para podermos rodar a 2a. Parte do qg, que elimina este contrato. Desta forma podemos fazer para um novo cliente quando for preciso.

Outro lugar que o qg está salvo C:\Temp\contrato_9999_cliente_item.csv

**************************************************************/* Parte 1 - Inclui Itens no Contrato 99999 */

/* informar o código do cliente e o item.

Se tiver o mesmo item para mais de um cliente,

executar a parte 1 e 2 para cada cliente */

 DEFINE TEMP-TABLE tt-item                                                           
            FIELD cod-emitente LIKE emitente.cod-emitente           
            FIELD it-codigo    LIKE ITEM.it-codigo.                               
                                                                                    
INPUT FROM I:\Leopoldo\contrato_9999_cliente_8392_item.csv. /* Cliente;Item CSV MS-DOS*/ 
REPEAT:                                                                            
    CREATE tt-item.                                                                  
    IMPORT DELIMITER ";" tt-item.                                                   
END.                                                                                 
INPUT CLOSE.                                                                        
                                                                                     
FOR EACH tt-item WHERE                                                               
         tt-item.it-codigo <> "":                                                    
                                                                                     
    CREATE mod-item-anexo-uno.                                                       
     ASSIGN mod-item-anexo-uno.cod-contr = 99999                                      
            mod-item-anexo-uno.cod-emite  = tt-item.cod-emitente                      
           mod-item-anexo-uno.it-codigo  = tt-item.it-codigo.                        
END.

************************/*Parte 2 - Quando finalizarem a inclusão do documento o contrato criado deve ser excluído */

FOR EACH mod-item-anexo-uno WHERE            
         mod-item-anexo-uno.cod-contr = 99999: 
     DISP mod-item-anexo-uno.cod-emitente
          mod-item-anexo-uno.it-codigo.         
   // DELETE mod-item-anexo-uno.                   
 END.

*******************/* Parte 3 - Consulta itens que estão no contrato 99999 e ajuste qdo mesmo item precisa ser liberado para + de 1 cliente */

FOR EACH mod-item-anexo-uno WHERE
         mod-item-anexo-uno.cod-contr = 99999: // AND
       //  mod-item-anexo-uno.it-codigo BEGINS '421013':
    DISP mod-item-anexo-uno.it-codigo
 /* UPDATE */ mod-item-anexo-uno.cod-emitente.
END.

Texto para solicitar aprovação.

Bom dia [~fpelaio]. Tudo bem?

Em soluções não há contratos e portanto precisamos incluir um contrato fictício para poderem continuar com a rotina de refaturamento e depois que lançarem os itens, excluímos o contrato.

Segue anexo o QG para criar e excluir o contrato.

[^qg-cria-contrato-cliente-item.p]

Aguardamos a aprovação.

Atenciosamente.