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 ] )
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). |
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")EndCase Return
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| cValCampo | Caracter | Privado | Não | |||||||||||
| lValLote | Lógico | Privado | Sim |