Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 (https://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 Cliente
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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas