Page tree

Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Informações
titleCodigo e exemplos
Bloco de código
languagecpp
themeRDark
titleExemplo do ponto de Entrada
linenumberstrue
collapsetrue
#include 'totvs.ch'
#include "rwmake.ch"     

User Function ATF060GRV()

    Local Modelo060  := PARAMIXB[1] 
    Local aArea 	 := GetArea()
    Local cBase      := Modelo060:GetValue("GridFNR",'FNR_CBAORI')
    Local cItem      := Modelo060:GetValue("GridFNR",'FNR_ITEORI')
    Local cFilMovi   := Modelo060:GetValue("FieldFN9",'FN9_FILIAL')
    Local cChave     := cFilMovi + cBase + cItem

    dbSelectArea("SN4")
    dbSetOrder(1)

    If dbSeek(cChave)
        While SN4->(!EOF()) .And. cChave==SN4->(N4_FILIAL+N4_CBASE+N4_ITEM)

       		If rtrim(SN4->N4_CONTA) == '1110205' //CONTA NA ORIGEM
            	Reclock("SN4", .F.)
                	N4_CONTA := 'TX003' // CONTA NO DESTINO
            	MsUnlock()
        	Endif

        SN4->(dbSkip())
        EndDo
    Endif

    RestArea(aArea)

Return

Bloco de código
languagecpp
themeRDark
titleExemplo de Chamada do Ponto de EntradaPE no Sistema
linenumberstrue
collapsetrue

If lCont .And. ExistBlock ("ATF060GRV")
	ExecBlock("ATF060GRV",.F.,.F.,{oModel})
EndIf

Importante Ressaltar que o ponto de entrada somente é acionado caso todas as validações padrões da rotina estejam corretas.



Aviso
titleImportante !!

Os exemplos utilizados nessa documentação são meramente ilustrativos.

...