Liberação de Contrato (Cria Contrato Cliente item)
- Leopoldo Michelin de Oliveira
Analytics
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.