Home

Linha Microsiga Protheus

Páginas filhas
  • Rotina Automática EECAP100 - Atualização de Pedido de Exportação

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Wiki Markup
||Descrição|| Rotina Automática EECAP100 - Atualização do Pedido de Exportação  
||Observações|| Esta rotina permite a inclusão do pedido de exportação (Capa/ Item) de forma automática.
||Exemplos||User Function EECAP100Inc()
Local aItens := {}
Local aDadosAuto := {} // Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica dos itens do ativo 
Local aCab := \{ \{'EE7_FILIAL' ,'01' ,NIL},; 
\{'EE7_IMPORT' ,'001' ,NIL\},; 
\{'EE7_IMLOJA' ,'01' ,NIL},; 
\{'EE7_IMPODE' ,"IMPORTADOR" ,NIL},; 
\{'EE7_FORN' ,'001' ,NIL},; 
\{'EE7_FOLOJA' ,'01' ,NIL},; 
\{'EE7_FORNDE' ,"FORNECEDOR" ,NIL};
\{'EE7_IDIOMA' ,"INGLES-INGLES" ,NIL};
\{'EE7_CONDPA' ,'001' ,NIL};
\{'EE7_DIASPA' ,'30' ,NIL};
\{'EE7_DESCPA' ,"COND.PAGAMENTO" ,NIL};
\{'EE7_MPGEXP' ,'003' ,NIL};
\{'EE7_DSCMPE' ,"COBRANCA" ,NIL};
\{'EE7_INCOTE' ,'FOB' ,NIL};
\{'EE7_MOEDA' ,'US$' ,NIL};
\{'EE7_FRPPCC' ,'PP' ,NIL};
\{'EE7_VIA' ,'02' ,NIL};
\{'EE7_VIA_DE' ,"VIA TRANSP." ,NIL};
\{'EE7_ORIGEM' ,'AGA' ,NIL};
\{'EE7_DSCORI' ,"ACEGUA-RS" ,NIL};
\{'EE7_DEST' ,'VYX' ,NIL};
\{'EE7_DSCDES' ,"VITORIA-ES" ,NIL};
\{'EE7_PAISET' ,'105' ,NIL};
\{'EE7_TIPTRA' ,'1' ,NIL}}
// Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica da capa do bem 
Private lMsHelpAuto := .f. // Determina se as mensagens de help devem ser direcionadas para o arq. de log
Private lMsErroAuto := .f. // Determina se houve alguma inconsistencia na execucao da rotina 
aAdd(aItens,\{ \{'EE8_COD_1' ,'0001' , NIL},;
\{'EE8_VMDES' ,"CARRO" , NIL},; 
\{'EE8_FORN' ,'001' , NIL},; 
\{'EE8_FOLOJA' ,'01' , NIL},; 
\{'EE8_SLDINI' , 10 , NIL},; 
\{'EE8_EMBAL1' , '001' , NIL},; 
\{'EE8_QE' , 1 , NIL},; 
\{'EE8_QTDM1' , 10 , NIL},; 
\{'EE8_PSLQUN' , 2 , NIL},; 
\{'EE8_POSIPI' , 01011010 , NIL},; 
\{'EE8_PRECO' , 10 , NIL}})
MSExecAuto( \{\|X,Y,Z\| EECAP100\(X,Y,Z\)\} ,aCab ,aItens, 3) 
If lMsErroAuto 
lRetorno := .F. 
MostraErro()
Else
lRetorno:=.T.
EndIf
Return
||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus11
||Sistemas Operacionais Suportados||Windows
||Compatível com as Bases de Dados||Topconnect
||Updates|| 
||Parâmetros|| aCabec	Array contendo os campos do cabeçalho (EE7).
aItens	Array contendo os campos dos itens (EE8).
nOpc	
3- Inclusão
4- Alteração é necessário o uso do campo LINPOS para localizar o bem
5- Exclusão é necessário o uso do campo LINPOS para localizar o bem e o AUTDELETA para que seja deletado
||Retorno|| NIL
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| EECAP100.PRW