Histórico da Página

01.

...

DATOS GENERALES

ProdutoLinha

Línea Protheus

Backoffice

TOTVS Backoffice (

Linha

Línea Protheus) -

Financeiro

Financiero (SIGAFIN)

Producto:
Solucoes_totvs_cross
SolucaoCross	TOTVS Backoffice
Linha Línea de Produto producto:
Linhas_totvs
Linha
Segmento:
Segmentos_totvs
Segmento
Módulo:
Modulos_cross_segmentos
ModulosCrossSegmentos
Função Función:	FXIMPGR

NomeDescrição

Nombre

Tipo

Descripción

PARAMIXB

Array

Posição Posición 1 = Alias da tabelade la tabla

Posición Posição 2 = Recno do del título de impostoimpuesto
Ex
Ej.:
PARAMIXB[1] = {"SE1",100}
PARAMIXB[2] = {"SE1",101}

PARAMIXB[1,1] = "SE1"
PARAMIXB[1,2] = 100
PARAMIXB[2,1] = "SE1"
PARAMIXB[2,2] = 101

Retorno

Devolución	Valor
Nil	Nulo

02.

...

DESCRIPCIÓN

O Ponto El Punto de entrada FXIMPGR permite complementar dados dos datos de los títulos de impostos gerados, independentemente da carteira (Contas a Pagar ou Contas a Receber). A função processa um array contendo os RECNOs dos registros de impostos gerados pelo motor de retençõesimpuestos generados, independientemente de la cartera (Cuentas por pagar o Cuentas por cobrar). La función procesa un array con los RECNO de los registros de impuestos generados por el motor de retenciones.

03. EXEMPLO EJEMPLO DE UTILIZAÇÃOUTILIZACIÓN

Bloco de código

language	cpp
theme	Midnight
firstline	1
title	FXIMPGR
linenumbers	true

#INCLUDE "TOTVS.CH"
 
/*/{Protheus.doc} User Function FXIMPGR
    (PontoPunto de entrada permite gravargrabar dadosdatos complementarescomplementarios dodel
    registro marcado posicionadoen noslos recnos dosde los impostosimpuestos geradosgenerados a partir dodel motor de retençõesretenciones
)
    @type  Function
    @author Fábio Henrique Andrade
    @since 17/09/2025
    @version 12
    @param aRecImpos, array contendocon oslos recnos de doslos impostosimpuestos geradosgenerados
    @return Nil
    @see https://tdn.totvs.com/display/PROT/Configurador+de+Tributos+-+Regras+Financeiras 
/*/
User Function FXIMPGR()
    Local cHist  As Character
    Local cCarteir As Character
    Local nI As Numeric
    Local nRecno As Numeric
    Local aRecImpos As Array

    aRecImpos := PARAMIXB //Array contendocon oslos recnos de doslos impostosimpuestos geradosgenerados
    cHist     := "PassouPasó en noel PontoPunto de entrada FXIMPPG"
    cCarteir  := ""
    nI        := 0
    nRecno    := 0

    For nI := 1 to LEN( aRecImpos )

        cCarteir := aRecImpos[nI,1]
        nRecno   := aRecImpos[nI,2]

        If cCarteir == "SE1" // ReceberCobrar
            DbSelectArea("SE1")
            SE1->(dbGoTo(nRecno) )
            RecLock("SE1", .F.)
            SE1->E1_HIST := cHist
            MsUnlock()
        ElseIf cCarteir == "SE2"
            DbSelectArea("SE2")
            SE2->(dbGoTo(nRecno) )
            RecLock("SE2", .F.)
            SE2->E2_HIST := cHist
            MsUnlock()
        EndIf

    Next

Return NIL

...

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

01.

DATOS GENERALES

02.

DESCRIPCIÓN