Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagejava
themeMidnight
title F560PCCX()F560GRV2
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} User Function F560GRV2
    (Ponto de entrada para altera/manipular dados complementares no registro 
    posicionado do adiantamento após recebimento do paramentro criado pelo cliente que deve ser do tipo array     )
    @type  Function
    @author Cassio S Dias
    @since 29/11/2023
    @version 12
    @param param_name, array
    @return Nil
    @see (links_or_referenceshttps://tdn.totvs.com/x/EPycM)
    /*/
User Function F560GRV2(Paramixb)
    //Paramixb : array personalizado pelo cliente 

	Local aDados as Array
	Local cHist as Character
	Local cInd as Character
	local cSit as Character

	//Posicionado na tabela "SEU - Movimentos do caixinha"
	//Customização conforme necessidades do usuárioCliente

	aDados := Paramixb
	cHist := aDados[1]//"teste F560GRV2 "
	cInd  := aDados[2]//"SEU->EU_FILIAL+SEU->EU_CAIXA+SEU->EU_TIPO+SEU->EU_NROADIA+SEU->EU_NUM"
	cSit  := aDados[3]//"03"

	dbSelectArea("SEU")
	dbSetOrder(6)//	EU_FILIAL+EU_CAIXA+EU_TIPO+EU_NROADIA+EU_NUM
	if dbseek(xFilial("SEU")+cInd)
		if SEU->EU_STATUS == cSit
			Reclock("SEU",.F.)
			SEU->EU_HISTOR  := cHist
			MsUnlock()
		ENDIF
	ENDIF

Return Nil
 Return Nil

04. DEMAIS INFORMAÇÕES

...