PSLQUN' , 2 , NIL} )
aAdd(aItem, {'EE8_TES' , "501" , NIL} )
aAdd(aItem, {'EE8_POSIPI' , "00000000" , NIL} )
aAdd(aItem, {"AUTDELETA" , "N" , Nil} )
AADD( aItens, aClone(aItem))
aItem := {}
elseIf nOpc == 5
aadd( aCab , {'EE7_PEDIDO' , cPedido , NIL} )
aadd( aCab , {'EE7_IMPORT' , "000001" , NIL} )
aadd( aCab , {'EE7_IMLOJA' , "01" , NIL} )
aadd( aCab , {'EE7_FORN' , "000001" , NIL} )
aadd( aCab , {'EE7_FOLOJA' , "01" , NIL} )
aAdd( aCab , {"AUTDELETA" ,"S" , Nil})
aAdd(aItem, {'EE8_SEQUEN' , str(1) , NIL} )
aAdd(aItem, {'EE8_COD_I' , "0000000002" , NIL} )
aAdd(aItem, {'EE8_FORN' , "000001" , NIL} )
aAdd(aItem, {'EE8_FOLOJA' , "01" , NIL} )
aAdd(aItem, {"AUTDELETA" ,"S" , Nil} )
AADD( aItens, aClone(aItem))
aItem := {}
EndIf
// Complementos dos pedido Notifys, Documentos e Agentes
If alltrim(str(nOpcDet)) $ "3|4|5" .and. nOpc <> 5
aAux := {}
// Notifys
aNotifys := {}
aNotify := {}
if nOpcDet == 3 // inclusão dos notifys
aAdd(aNotify, {"EEN_IMPORT", "000001" , Nil})
aAdd(aNotify, {"EEN_IMLOJA", "01" , Nil})
elseif nOpcDet == 4 // alteração dos notifys
aAdd(aNotify, {"EEN_IMPORT", "000001" , Nil})
aAdd(aNotify, {"EEN_IMLOJA", "01" , Nil})
aAdd(aNotify, {"AUTDELETA" , "S" , Nil})
aAdd(aNotify, {"EEN_IMPORT", "000002" , Nil})
aAdd(aNotify, {"EEN_IMLOJA", "01" , Nil})
aAdd(aNotify, {"AUTDELETA" , "N" , Nil})
elseIf nOpcDet == 5 // exclusão do notify
aAdd(aNotify, {"EEN_IMPORT", "000001" , Nil})
aAdd(aNotify, {"EEN_IMLOJA", "01" , Nil})
aAdd(aNotify, {"AUTDELETA" , "S" , Nil})
EndIf
aAdd(aNotifys, aNotify)
aAdd(aAux, {"EEN", aNotifys})
// Documentos
aDocs := {}
aDoc := {}
if nOpcDet == 3 // inclusão dos Documentos
aAdd(aDoc, {"EXB_TIPO" , "1" , Nil})
aAdd(aDoc, {"EXB_CODATV", "01" , Nil})
elseif nOpcDet == 4 // alteração dos Documentos
aAdd(aDoc, {"EXB_TIPO" , "1" , Nil})
aAdd(aDoc, {"EXB_CODATV", "01" , Nil})
aAdd(aDoc, {"AUTDELETA" , "S" , Nil})
aAdd(aDoc, {"EXB_TIPO" , "1" , Nil})
aAdd(aDoc, {"EXB_CODATV", "02" , Nil})
aAdd(aDoc, {"AUTDELETA" ,"N" , Nil})
elseIf nOpcDet == 5 // exclusão do documento
aAdd(aDoc, {"EXB_TIPO" , "1" , Nil})
aAdd(aDoc, {"EXB_CODATV", "02" , Nil})
aAdd(aDoc, {"AUTDELETA" , "S" , Nil})
EndIf
aAdd(aDocs, aDoc)
aAdd(aAux, {"EXB", aDocs})
// Agentes
aAgentes := {}
aAgente := {}
if nOpcDet == 3 // inclusão dos Agentes
aAdd(aAgente, {"EEB_CODAGE", "001" , Nil})
aAdd(aAgente, {"EEB_TIPCOM", "1" , Nil}) // 1-A Remeter | 2-Conta Grafcica | 3-Deduzir da Fatura
aAdd(aAgente, {"EEB_TIPCVL", "2" , Nil}) // 1-Percentual | 2-Valor Fixo | 3-Percentual por item
aAdd(aAgente, {"EEB_VALCOM", 10 , Nil})
aAdd(aAgente, {"EEB_REFAGE", "NOME AGENTE" , Nil})
elseif nOpcDet == 4 // alteração dos Agentes
aAdd(aAgente, {"EEB_CODAGE", "001" , Nil})
aAdd(aAgente, {"EEB_TIPCOM", "1" , Nil}) // 1-A Remeter | 2-Conta Grafcica | 3-Deduzir da Fatura
aAdd(aAgente, {"EEB_TIPCVL", "2" , Nil}) // 1-Percentual | 2-Valor Fixo | 3-Percentual por item
aAdd(aAgente, {"EEB_VALCOM", 10 , Nil})
aAdd(aAgente, {"EEB_REFAGE", "NOME AGENTE" , Nil})
aAdd(aAgente, {"AUTDELETA" ,"S" , Nil})
aAdd(aAgente, {"EEB_CODAGE", "002" , Nil})
aAdd(aAgente, {"EEB_TIPCOM", "1" , Nil}) // 1-A Remeter | 2-Conta Grafcica | 3-Deduzir da Fatura
aAdd(aAgente, {"EEB_TIPCVL", "2" , Nil}) // 1-Percentual | 2-Valor Fixo | 3-Percentual por item
aAdd(aAgente, {"EEB_VALCOM", 10 , Nil})
aAdd(aAgente, {"EEB_REFAGE", "NOME AGENTE" , Nil})
aAdd(aAgente, {"AUTDELETA" ,"N" , Nil})
elseIf nOpcDet == 5 // exclusão do agente
aAdd(aAgente, {"EEB_CODAGE", "002" , Nil})
aAdd(aAgente, {"EEB_TIPCOM", "1" , Nil}) // 1-A Remeter | 2-Conta Grafcica | 3-Deduzir da Fatura
aAdd(aAgente, {"EEB_TIPCVL", "2" , Nil}) // 1-Percentual | 2-Valor Fixo | 3-Percentual por item
aAdd(aAgente, {"AUTDELETA" ,"S" , Nil})
EndIf
aAdd(aAgentes, aAgente)
aAdd(aAux, {"EEB", aAgentes})
EndIf
// execução DA rotina utomática
MsAguarde({|| MSExecAuto( {|X,Y,Z,Aux| EECAP100(X,Y,Z,Aux)},aCab ,aItens, nOpc, aAux) }, "Integrando Pedido Automático")
If lMsErroAuto
MostraErro()
lMsErroAuto := .F.
Else
cAcao := iif( nOpc == 3 , " incluido",iif(nOpc==4," alterado"," excluido"))
MsgInfo("Pedido " + cAcao + " com sucesso!", "Aviso")
EndIf
Return |