Histórico da Página

Descrição

EECDU100 - Transmissão DUE

Observações

Ponto de Entrada para customização de funções no fonte EECDU100.

Exemplos

User Function EECDU100()

Local cParam:= ""

IF Type("ParamIXB") == "C"
cParam:= PARAMIXB
Else
cParam:= PARAMIXB[1]
Endif

IF cParam == "OK_DUE"
msginfo("Entrou no ponto de entrada 'OK_DUE'")
ENDIF

Return

User Function EECDU100()
Local cParam, nRec

If ValType(ParamIXB) == "A"
cParam := ParamIXB[2]
Else
cParam := ParamIXB
EndIf
Do Case
Case cParam == "ALTERA_ITEM" .And. nOp == 1
nRec:=EK2->(RecNo())
EK2->(DBSEEK(xFilial("EK2") + cProc + cSeque ))
Do While EK2->(!Eof()) .And. EK2->EK2_PROCES = cProc .And. EK2->EK2_NUMSEQ = cSeque
EK2->EK2_PSLQUN := EK2->EK2_PSLQUN + 10
EK2->(DbSkip())
EndDo
EK2->(DBGOTO(nRec))
EndCase
Return .T.

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus 12

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Nome	Tipo	Descrição	Default	Obrigatório	Referência
OK_DUE	Caracter	Ponto de entrada localizado na rotina de gera declaração e é acionada após dar OK na tela tendo o processo de embarque validado.
ALTERA_ITEM	Caracater	Ponto de entrada localizado na rotina que gera as abelas tabelas EK´s permitindo a alteração dos campos destas tabelas.

Retorno

NIL

Eventos de chamada do Ponto de Entrada

Variáveis

Nome	Tipo	Escopo	Pode Alterar	Parâmetro	Descrição
cProcess	Caracter	Privado	Sim	OK_DUE	Váriavel com o processo de embarque a ser gerado declaração.
nOp	Numérico	Privado	Não	ALTERA_ITEM	Variável que indica o staus do xml, onde 1=Gera xml, 2=Retorno do xml e 3=Grava mensagem de falha do xml.
cProc	Caracter	Privado	Não	ALTERA_ITEM	Váriavel com o processo de embarque a ser gerado declaração.
cSeque	Caracter	Privado	Não	ALTERA_ITEM	Sequência do xml gerado

Programa Fonte

EECDU100

...

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão 5

Chave