Home

Linha Microsiga Protheus

Child pages
  • EECSI100 - Programa de Geração de R.E.
Skip to end of metadata
Go to start of metadata

Ponto-de-Entrada: EECSI100 - Programa de Geração de R.E.
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:
Esse ponto de entrada customiza o envio dos dados para registro do RE de Exportação.
Eventos
 
Programa Fonte
EECSI100.PRW
Sintaxe

EECSI100 - Programa de Geração de R.E. ( [ CALC_ANTECIPADO ], [ UNIDADE ], [ ALTERA_FORNEXP ], [ CONTROLE_QUEBRA ], [ ALTERA_DESCRI ], [ SI100_ALTERA_EYU ], [ SI100_GRAVA_TAB ] )

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
CALC_ANTECIPADOCaracterParâmetro no fonte EECSI100.PRW para alterar no cálculo do Valor Antecipado na rotina de R.E.
UNIDADECaracterParâmetro para atualizar a conversão de unidade de medida na tabela SJ5.
ALTERA_FORNEXPArray of RecordParâmetro para alterar o Fornecedor/Exportador ao ser enviado na geração do RE.
CONTROLE_QUEBRAArray of RecordParametro para controlar a quebra da geração de RE
ALTERA_DESCRIArray of RecordParâmetro para alterar a descrição do item antes da geração do RE.
SI100_ALTERA_EYUarray_of_recordParâmetro para alterar os dados da tabela EYU
SI100_GRAVA_TABarray_of_recordParâmetro para gravar os dados das tabelas do RE
Retorno
    ()
Observações
 
Exemplos
User Function EECSI100()If ValType(ParamIXB) == "A"   cParam:= ParamIXB[1]Else   cParam:= ParamIXBEndIfDo Case   Case cParam == "SI100_ALTERA_EYU"           MsgInfo("Ponto de Entrada 'SI100_ALTERA_EYU' ativo!")EndCaseReturn NIL User Function EECSI100()If ValType(ParamIXB) == "A"   cParam:= ParamIXB[1]Else   cParam:= ParamIXBEndIfDo Case   Case cParam == "SI100_GRAVA_TAB"           MsgInfo("Ponto de Entrada 'SI100_GRAVA_TAB' ativo!")EndCaseReturn NIL User Function EECSI100()If ValType(ParamIXB) == "A"   cParam:= ParamIXB[1]Else   cParam:= ParamIXBEndIfDo Case   Case cParam == "SI100_GRAVA_TAB"           MsgInfo("Ponto de Entrada 'SI100_GRAVA_TAB' ativo!")EndCaseReturn NIL User Function EECSI100()   If ValType(ParamIXB) == "A"   cParam:= ParamIXB[1]Else   cParam:= ParamIXBEndIfDo Case   Case cParam == "CONTROLE_QUEBRA"           lLoopRE := .T.      MsgInfo("Ponto de Entrada 'CONTROLE_QUEBRA' ativo!")   Case cParam == "ALTERA_DESCRI"       MsgInfo("Teste")EndCaseReturn NIL User Function EECSI100()Local cParam,;      lRet            If ValType(ParamIXB) == "A"      cParam:= ParamIXB[1]   Else     cParam:= ParamIXB   EndIf   Do Case      Case cParam == "CALC_ANTECIPADO"              nAnteci += 10         lRet:= .T.      Case cParam == "UNIDADE"         MsgInfo("UNIDADE")      Case cParam == "ALTERA_FORNEXP"         MsgInfo("ALTERA_FORNEXP")    EndCaseReturn lRet
Variáveis
NomeTipoEscopoPode Alterardescrição
nAnteciNuloPrivadoNão