Home

Linha Microsiga Protheus

Child pages
  • Rotina Automática EECAP100 - Atualização de Pedido de Exportação
Skip to end of metadata
Go to start of metadata

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 gravação automática 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 gravação automática 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 inconsistência na execução 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

  • No labels