Exibir origem

01. DATOS GENERALES

Línea de producto:	Línea Protheus
Segmento:	Backoffice
Módulo:	TOTVS Backoffice (Línea Protheus) - Financiero (SIGAFIN)
Función:	finxspd1601 - Extractor registro 1601 - EFD ICMS/IPI
Requisito/Story/Issue:	No existe

02. DESCRIPCIÓN

El punto de entrada F160GRV, permite la edición de los registros existentes en la tabla temporal al final de todo procesamiento de búsqueda de 1601 - EFD ICMS/IPI.

03. PARÁMETROS

Nombre	Tipo	Descripción
cAliasTmp	Carácter	Alias de la tabla temporal con los datos enviados a EFD ICMS/IPI

04. ESTRUCTURA TABLA TEMPORAL

Campo	Tipo	Descripción	Obligatorio
REGIME	Carácter	Identifica si el registro es referente a la Inclusión (VIGENCIA) o pago (CAJA)	SÍ
CARTEIRA	Carácter	Identifica si el registro es cobrar (R) o pagar (P)	SÍ
BANCO	Carácter	Código banco, agencia y cuenta	SÍ
CNPJBCO	Carácter	RCPJ de la Institución financiera portadora de la cobranza o pago.	No
FILORIG	Carácter	Sucursal de origen del movimiento	SÍ
DT_EMISSAO	Fecha	Fecha de emisión del registro	SÍ
ORIGEM	Carácter	Rutina de origen del registro	SÍ
PREFIXO	Carácter	Prefijo del título.	SÍ
NUMERO	Carácter	Número del título	SÍ
PARCELA	Carácter	Cuota del título	SÍ
TIPO	Carácter	Tipo del título	SÍ
SITUACAO	Carácter	Situaciones de cobranza	NO
SALDO	Numérico	Saldo del título	NO
MOEDA	Numérico	Moneda del título	SÍ
TXMOEDA	Numérico	Tasa de la moneda	NO
IDDOC	Carácter	Id del título (FK7_IDDOC)	SÍ
CLIFOR	Carácter	Código del cliente o proveedor	SÍ
LOJA	Carácter	Tienda del cliente o proveedor	SÍ
CODBAR	Carácter	Código de barras	NO
INTERMED	Carácter	Código de la institución intermediadora (F1_CODA1U o F2_CODA1U)	NO
VALOR	Numérico	Valor del título o pago	SÍ
DT_BAIXA	Fecha	Fecha de la baja o pago	No
MOTBX	Carácter	Motivo de la baja	SÍ
MODELO	Carácter	Modelo del borderó por pagar (EA_MODELO)	NO
IDBAIXA	Carácter	Id de la baja (FK1_IDFK1 o FK2_IDFK2)	NO
FORMA_PGTO	Carácter	Forma de pago	SÍ

05. EJEMPLO DE UTILIZACIÓN

#include 'protheus.ch'
  
/*/{Protheus.doc} F160GRV() 
  
    Punto de entrada para edición de los registros enviados al registro 1601 EFD ICMS/IPI.
      
    @param ParamIxb[1] - cAlias de la tabla temporal para edición de los registros 1601
    @return Nil
/*/
  
User Function F160GRV()
  
    Local cAliastmp  := ParamIXB[1] //alias de la tabla temporal
 
    (cAliasTmp)->(DbGoTop())
 
    While (cAliasTmp)->(!Eof())
 
        If AllTrim((cAliasTmp)->MOTBX) == 'NOR' .And. AllTrim((cAliasTmp)->FORMA_PGTO) == 'BOL'
            RecLock(cAliasTmp, .F.)
                (cAliasTmp)->REGIME := 'VIGENCIA'
            (cAliasTmp)->(MsUnlock())
        EndIf
        (cAliasTmp)->(DbSkip())
 
    EndDo
   
Return Nil