Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "TOTVS.CH" /*/{Protheus.doc} User Function FXIMPGR (Ponto de entrada permite gravar dados complementares do registro posicionado nos recnos dos impostos gerados @type Function @author Cassio S Dias @since 15/12/2023 @version 12 @param aRecImpos, array contendo os recnos dos impostos gerados @return Nil @see (links_or_referenceshttps://tdn.totvs.com/x/ibiMM) /*/ User Function FXIMPGR(aRecImpos) Local cHist as character Local cCart as character Local nI as numeric aRecImpos:= Paramixb //Array contendo os recnos dos impostos gerados cCart := Paramixb //Carteira (Pagar/Receber) cHist := "Passou no Ponto de entrada FXIMPPG" nI := 0 For nI := 1 to LEN( aRecImpos[nI,1] ) if cCart == "1" // Receber DbSelectArea("SE1") SE1->(dbGoTo(aRecImpos[nI,1]) ) RecLock("SE1", .F.) SE1->E1_HIST := cHist MsUnlock() else DbSelectArea("SE2") SE2->(dbGoTo(aRecImpos[nI,1]) ) RecLock("SE2", .F.) SE2->E2_HIST := cHist MsUnlock() EndIf NEXT Return NIL |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas