If lMsErroAuto lRetorno := .F. MostraErro() Else lRetorno:=.T. EndIf Return - Exclusão do primeiro Item
User Function XEECAP100Inc() Local aItens := {} Local aCab := {} aCab :={ {'EE7_PEDIDO' ,'P-EXEC-01' ,NIL},; {'EE7_IMPORT' ,'001 ' ,NIL},; {'EE7_IMLOJA' ,'01' ,NIL},; {'EE7_IMPODE' ,"CLIENTE 001 " ,NIL},; {'EE7_FORN' ,'001 ' ,NIL},; {'EE7_FOLOJA' ,'01' ,NIL},; {'EE7_IDIOMA' ,"INGLES-INGLES " ,NIL},; {'EE7_CONDPA' ,'01 ' ,NIL},; {'EE7_DIASPA' ,- 1 ,NIL},; {'EE7_MPGEXP' ,'001' ,NIL},; {'EE7_DSCMPE' ,"COBRANCA" ,NIL},; {'EE7_INCOTE' ,'FOB' ,NIL},; {'EE7_MOEDA' ,'US$' ,NIL},; {'EE7_FRPPCC' ,'PP' ,NIL},; {'EE7_EMBAFI' ,' ' ,NIL},; {'EE7_CALCEM' ,'1' ,NIL},; {'EE7_VIA' ,'01' ,NIL},; {'EE7_VIA_DE' ,"VIA IMP 01" ,NIL},; {'EE7_ORIGEM' ,'AJU' ,NIL},; {'EE7_DEST' ,'BLM' ,NIL},; {'EE7_DSCDES' ,"BELEM-PA" ,NIL},; {'EE7_PAISET' ,'105' ,NIL},; {'EE7_TIPTRA' ,'1' ,NIL}} aItens := {{ {'EE8_SEQUEN' ," 1" , NIL},; {'EE8_COD_I' ,'001 ' , NIL},; {'EE8_FORN' ,'001 ' , NIL},; {'EE8_FOLOJA' ,'01' , NIL},; {'EE8_SLDINI' , 10 , NIL},; {'EE8_EMBAL1' , '001 ' , NIL},; {'EE8_QTDM1' ,1 , NIL},; {'EE8_QE' ,10 , NIL},; {'EE8_PSLQUN' ,200 , NIL},; {'EE8_PRECO' ,2000 , NIL},; {'EE8_PLSQUN' ,200 , NIL},; {'EE8_TES' ,"501" , NIL},; {'EE8_CF' ,"7101 " , NIL},; {'EE8_POSIPI' ,"01011010" , NIL},; {"AUTDELETA" ,"S" , Nil},; {"LINPOS" ,"EE8_COD_I" ,"1"}},;
{ {'EE8_SEQUEN' ," 2" , NIL},; {'EE8_COD_I' ,'DVD 01 ' , NIL},; {'EE8_FORN' ,'001 ' , NIL},; {'EE8_FOLOJA' ,'01' , NIL},; {'EE8_SLDINI' , 20 , NIL},; {'EE8_EMBAL1' , '001 ' , NIL},; {'EE8_QTDM1' ,1 , NIL},; {'EE8_QE' ,10 , NIL},; {'EE8_PSLQUN' ,200 , NIL},; {'EE8_PRECO' ,2000 , NIL},; {'EE8_PLSQUN' ,200 , NIL},; {'EE8_TES' ,"501" , NIL},; {'EE8_CF' ,"7101 " , NIL},; {'EE8_POSIPI' ,"01011010" , NIL},; {"AUTDELETA" ,"N" , Nil},; {"LINPOS" ,"EE8_COD_I" ,"2"}}} MSExecAuto( {|X,Y,Z| EECAP100(X,Y,Z)},aCab ,aItens, 4)//Alteração If lMsErroAuto lRetorno := .F. MostraErro() Else lRetorno:=.T. EndIf Return User Function XEECAP100Inc() Local aItens := {} Local aCab := {} aCab :={ {'EE7_PEDIDO' ,'P-EXEC-01' ,NIL},; {'EE7_IMPORT' ,'001 ' ,NIL},; {'EE7_IMLOJA' ,'01' ,NIL},; {'EE7_IMPODE' ,"CLIENTE 001 " ,NIL},; {'EE7_FORN' ,'001 ' ,NIL},; {'EE7_FOLOJA' ,'01' ,NIL},; {'EE7_IDIOMA' ,"INGLES-INGLES " ,NIL},; {'EE7_CONDPA' ,'01 ' ,NIL},; {'EE7_DIASPA' ,- 1 ,NIL},; {'EE7_MPGEXP' ,'001' ,NIL},; {'EE7_DSCMPE' ,"COBRANCA" ,NIL},; {'EE7_INCOTE' ,'FOB' ,NIL},; {'EE7_MOEDA' ,'US$' ,NIL},; {'EE7_FRPPCC' ,'PP' ,NIL},; {'EE7_EMBAFI' ,' ' ,NIL},; {'EE7_CALCEM' ,'1' ,NIL},; {'EE7_VIA' ,'01' ,NIL},; {'EE7_VIA_DE' ,"VIA IMP 01" ,NIL},; {'EE7_ORIGEM' ,'AJU' ,NIL},; {'EE7_DEST' ,'BLM' ,NIL},; {'EE7_DSCDES' ,"BELEM-PA" ,NIL},; {'EE7_PAISET' ,'105' ,NIL},; {'EE7_TIPTRA' ,'1' ,NIL}} aItens := {{ {'EE8_SEQUEN' ," 1" , NIL},; {'EE8_COD_I' ,'001 ' , NIL},; {'EE8_FORN' ,'001 ' , NIL},; {'EE8_FOLOJA' ,'01' , NIL},; {'EE8_SLDINI' , 10 , NIL},; {'EE8_EMBAL1' , '001 ' , NIL},; {'EE8_QTDM1' ,1 , NIL},; {'EE8_QE' ,10 , NIL},; {'EE8_PSLQUN' ,200 , NIL},; {'EE8_PRECO' ,2000 , NIL},; {'EE8_PLSQUN' ,200 , NIL},; {'EE8_TES' ,"501" , NIL},; {'EE8_CF' ,"7101 " , NIL},; {'EE8_POSIPI' ,"01011010" , NIL},; {"AUTDELETA" ,"N" , Nil},; {"LINPOS" ,"EE8_COD_I" ,"1"}},; { {'EE8_SEQUEN' ," 2" , NIL},; {'EE8_COD_I' ,'DVD 01 ' , NIL},; {'EE8_FORN' ,'001 ' , NIL},; {'EE8_FOLOJA' ,'01' , NIL},; {'EE8_SLDINI' , 20 , NIL},; {'EE8_EMBAL1' , '001 ' , NIL},; {'EE8_QTDM1' ,1 , NIL},; {'EE8_QE' ,10 , NIL},; {'EE8_PSLQUN' ,200 , NIL},; {'EE8_PRECO' ,2000 , NIL},; {'EE8_PLSQUN' ,200 , NIL},; {'EE8_TES' ,"501" , NIL},; {'EE8_CF' ,"7101 " , NIL},; {'EE8_POSIPI' ,"01011010" , NIL},; {"AUTDELETA" ,"N" , Nil},; {"LINPOS" ,"EE8_COD_I" ,"2"}},; { {'EE8_SEQUEN' ," 3" , NIL},; {'EE8_COD_I' ,'001 ' , NIL},; {'EE8_FORN' ,'001 ' , NIL},; {'EE8_FOLOJA' ,'01' , NIL},; {'EE8_SLDINI' , 20 , NIL},; {'EE8_EMBAL1' , '001 ' , NIL},; {'EE8_QTDM1' ,1 , NIL},; {'EE8_QE' ,10 , NIL},; {'EE8_PSLQUN' ,200 , NIL},; {'EE8_PRECO' ,2000 , NIL},; {'EE8_PLSQUN' ,200 , NIL},; {'EE8_TES' ,"501" , NIL},; {'EE8_CF' ,"7101 " , NIL},; {'EE8_POSIPI' ,"01011010" , NIL}}}
MSExecAuto( {|X,Y,Z| EECAP100(X,Y,Z)},aCab ,aItens, 4)//Alteração
If lMsErroAuto lRetorno := .F. MostraErro() Else lRetorno:=.T. EndIf Return - Exclusão e/ou cancelamento de pedido
Para exclusão do pedido é necessário enviar o AUTDELETA e para cancelar o pedido é necessário enviar o AUTCANCELA, sendo necessário envio somente dos dados da capa do processo. User Function XEECAP100Inc() Local aItens := {} Local aCab := {} Private lMsHelpAuto := .f. // Determina se as mensagens de help devem ser direcionadas para o arq. de log Private lMsErroAuto := .f. // Determina se houve alguma inconsistência na execução da rotina aCab :={ {'EE7_PEDIDO' ,'P-EXEC-03' ,NIL},; {'EE7_IMPORT' ,'001 ' ,NIL},; {'EE7_IMLOJA' ,'01' ,NIL},; {'EE7_IMPODE' ,"CLIENTE 001 " ,NIL},; {'EE7_FORN' ,'001 ' ,NIL},; {'EE7_FOLOJA' ,'01' ,NIL},; {'EE7_IDIOMA' ,"INGLES-INGLES " ,NIL},; {'EE7_CONDPA' ,'01 ' ,NIL},; {'EE7_DIASPA' ,- 1 ,NIL},; {'EE7_MPGEXP' ,'001' ,NIL},; {'EE7_DSCMPE' ,"COBRANCA" ,NIL},; {'EE7_INCOTE' ,'FOB' ,NIL},; {'EE7_MOEDA' ,'US$' ,NIL},; {'EE7_FRPPCC' ,'PP' ,NIL},; {'EE7_EMBAFI' ,' ' ,NIL},; {'EE7_CALCEM' ,'1' ,NIL},; {'EE7_VIA' ,'01' ,NIL},; {'EE7_VIA_DE' ,"VIA IMP 01" ,NIL},; {'EE7_ORIGEM' ,'AJU' ,NIL},; {'EE7_DEST' ,'BLM' ,NIL},; {'EE7_DSCDES' ,"BELEM-PA" ,NIL},; {'EE7_PAISET' ,'105' ,NIL},; {'EE7_TIPTRA' ,'1' ,NIL},; {"AUTDELETA" ,"S" , Nil}} MSExecAuto( {|X,Y,Z| EECAP100(X,Y,Z)},aCab ,aItens, 5)//Exclusão If lMsErroAuto lRetorno := .F. MostraErro() Else lRetorno:=.T. EndIf Return |