Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • EICDI505 - Manutenção do Desembaraço

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (sueli.gomides)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Lucas Raminelli

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
EICDI505 - Manutenção do Desembaraço
EICDI505 - Manutenção do Desembaraço

Ponto-de-Entrada: EICDI505 - Manutenção do Desembaraço

 

Abrangências:Microsiga Protheus 10 , Microsiga Protheus 11
Versões:Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)

 

Descrição:
Ponto de entrada EICDI505 para manutenção do desembaraço e envio de DI ao SISCOMEX.
Eventos
 
Programa Fonte
EICDI505.PRW
Sintaxe

EICDI505 - Manutenção do Desembaraço ( [ GERATXT_MERCODI_ALT ], [ DI500LOTEVAL_VALLOTE ], [ VAL_NEGATIVO ] )

Parâmetros:

 

 Nome  Tipo  Descrição  Default  Obrigatório  Referência 
 GERATXT_MERCODI_ALT  Caracter  Possibilita a alteração dos dados do mercosul(certificado) no TXT de envio da DI eletrônica.          
 DI500LOTEVAL_VALLOTE  Array of Record  Possibilitará a validação do número do lote na inclusão.Deve-se usar a variável private cValCampo para a identificação do campo que está sendo validado, no caso do número do lote (e da data de validade) a variável estará com o conteúdo “LOTE”, use a variável lValLote para identificar se a validação está correta ou não (.T., para correto, e .F., para incorreto).          
 VAL_NEGATIVO  Caracter  Possibilita incluir uma despesa com valor negativo sem que passe pela validação que verifica se existe saldo positivo para permitir valores negativos no processo.          

 

Retorno
    ()
Observações
 
Exemplos
User function EICDI500_rdm()Do Case   Case PARAMIXB == "GERATXT_MERCODI_ALT"         If !lMERCODI         Aadd(aLoadTxt,{ 86 ," ", "C" , 1 , 0 ,1141 ,1141})            Elseif Ascan(aLoadTxt, {|x|x[1] == 86}) # 0         Aadd(aLoadTxt,{ 86 ," ", "C" , 1 , 0 ,1141 ,1141})      EndIf           Case ParamIXB == "DI500LOTEVAL_VALLOTE" .AND. cValCampo == "LOTE"      MsgInfo("DI500LOTEVAL_VALLOTE")        Case ParamIXB == "VAL_NEGATIVO"      MsgInfo("Entrou no ponto de entrada 'VAL_NEGATIVO'.")       lVNegativo := .F.    EndCase    Return
Variáveis

 

 Nome  Tipo  Escopo  Pode Alterar  descrição 
 cValCampo  Caracter  Privado  Não    
 lValLote  Lógico  Privado  Sim    
 
lVNegativo
  Lógico  Privado  Sim