Linha Microsiga Protheus

Árvore de páginas

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


NomeTipoDescriçãoDefaultObrigatórioReferência

OK_DUE
CaracterPonto de entrada localizado na rotina de gera declaração e é acionada após dar OK na tela tendo o processo de embarque validado.



ALTERA_ITEMCaracaterPonto de entrada localizado na rotina que gera as tabelas EK´s permitindo a alteração dos campos destas tabelas.


Retorno

NIL

Eventos de chamada do Ponto de Entrada


Variáveis


NomeTipoEscopoPode AlterarParâmetroDescrição

cProcessCaracterPrivadoSimOK_DUEVáriavel com o processo de embarque a ser gerado declaração.

nOpNuméricoPrivadoNãoALTERA_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 CaracterPrivadoNãoALTERA_ITEMVáriavel com o processo de embarque a ser gerado declaração.

cSequeCaracterPrivadoNãoALTERA_ITEMSequência do xml gerado

Programa Fonte

EECDU100