Bom dia Pessoal,
Estou querendo vincular um pedido de compras a pré-nota gerada via ExecAuto. Alguém sabe me dizer o que devo fazer para ocorrer o mesmo?
Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!
MSEXECAUTO MATA140 Vincular Pedido de compras
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
1 resposta
-
Boa tarde!
Basta passar os campos D1_PEDIDO e D1_ITEMPC no array aItens do execauto, segue exemplo:
#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function eMata140() Local nOpc := 3 Private aCabec := {} Private aItens := {} Private aLinha := {} Private lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "SF1","SD1","SA1","SA2","SB1","SB2","SF4" aAdd(aCabec,{'F1_TIPO','N',NIL}) aAdd(aCabec,{'F1_FORMUL','N',NIL}) aAdd(aCabec,{'F1_DOC','000005',NIL}) aAdd(aCabec,{"F1_SERIE","01",NIL}) aAdd(aCabec,{"F1_EMISSAO",dDataBase,NIL}) aAdd(aCabec,{'F1_FORNECE','000001',NIL}) aAdd(aCabec,{'F1_LOJA','01',NIL}) aAdd(aCabec,{"F1_ESPECIE","NF",NIL}) aAdd(aCabec,{"F1_COND",'001',NIL}) aAdd(aCabec,{"F1_STATUS",'',NIL}) aAdd(aItens,{'D1_ITEM',StrZero(1,4),NIL}) aAdd(aItens,{'D1_COD',"01",NIL}) aAdd(aItens,{"D1_QUANT",1,Nil}) aAdd(aItens,{"D1_VUNIT",1,Nil}) aAdd(aItens,{"D1_TOTAL",1,Nil}) aAdd(aItens,{"D1_TES",'',NIL}) //-- Vincula Item de Pedido de Compras no Item da Pré Nota aAdd(aItens,{"D1_PEDIDO",'SEU-NUM-PED-AQUI',NIL}) aAdd(aItens,{"D1_ITEMPC",'SEU-ITEM-PED-AQUI',NIL}) aAdd(aLinha,aItens) MSExecAuto({|x,y,z,a,b| MATA140(x,y,z,a,b)}, aCabec, aLinha, nOpc,,) If lMsErroAuto mostraerro() Else Alert("Execauto MATA140 executado com sucesso!") EndIf RESET ENVIRONMENT Return -
