Versões comparadas

Chave

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

...

La solución contiene los fuentes:

FISA828.PRW

FISA832.PRW

Nota
titleImportante

 La funcionalidad Liquidación de granos del módulo Fiscal quedará descontinuada el 01/07/2024,  para mayor detalle consultar el siguiente enlace:

https://centraldeatendimento.totvs.com/hc/pt-br/articles/18371290987543-Aviso-de-descontinuaci%C3%B3n-de-Liquidaci%C3%B3n-de-granos-L%C3%ADnea-Protheus



02. EJEMPLO DE UTILIZACIÓN

...

NJC
CampoTipoTamañoDecimalesNombre del campoDescripciónF3FolderPictureValidacionBrowseVisualContextoObligatorioComboRelacaoWhen
NJC_FILIAL


FilialFilial
1








NJC_CODLIQC120LiquidaciónLiquidación
1@!
SiVRSi
GETSXENUM("NJC","NJC_CODIGO")
NJC_CUITEMC110CUIT Emisor CUIT Emisor 
1@R 99-99999999-9
SiVV

SM0->M0_CGC
NJC_COMPROC120COEComprobante (COE)        
1@!
SiVR



NJC_DTAAUTD80Fch. AutorizFecha autorización       
1

SiVR



NJC_EMISSAD80Fch Emision Fch Emision              
1

SiVR

ddatabase
NJC_PTOEMIC60Pto. De Emis
CFH1@!
SiARSi


NJC_CODCTRC60ContratoCódigo del Contrato      
1@!
SiAR



NJC_PROPROC60LocalidadLocalidad de Proced.     S11@!ExistCpo("SX5","S1"+M->NJC_PROPRO)SiARSi


NJC_PROVENC20ProvinciaProvincia    121@!ExistCpo("SX5","12"+M->NJC_PROVEN)SiARSi


NJC_TIPOC10TipoTipo de liquidación
1@!Pertence("123")SiVR
1=Parcial;2=Final;3=Total

NJC_ESPLIQC10EspecieEspecie liquidación
1@!Pertence("12")SiVR
1=Pagar;2=Recibir

NJC_TPLIQC10Liquidación

1@!Pertence("12")SiVR
1=Primaria;2=Secundaria

NJC_OPERACC20OperaciónOperación
2@!Pertence("12")SiAR
1=Compraventa;2=Consignacion de granos1'
NJC_TIPLIQC10¿Prod. Prop?¿Produccion Propia? 
2@!Pertence("12")SiAR
1=Si;2=No;                                                    
M->NJC_OPERAC=="1"
NJC_INFCERC10Inf. CertificInf.Certific             
2@!Pertence("12")SiAR
1=Si;2=No;  1'M->NJC_OPERAC=="1"
NJC_TROCA C10¿Es Canje?¿Es Canje?
2@!Pertence("123")SiAR
1=No;2=Canje parcial;3=Canje total;1'M->NJC_OPERAC=="1" .and. M->NJC_TIPLIQ=='2'                
NJC_PROD  C150ProductoProducto
2@!
SiAR



NJC_NOMPROC400Desc. Prod.Descrip. Producto        
2@!
SiVR

POSICIONE("SB1", 1, XFILIAL("SB1") + NJC_PROD, "B1_DESC")
NJC_REMITOC120RemitoNumero de Remito
2@!
SiVR



NJC_SERREMC30Serie Rem. Serie remito
2@!
SiVR



NJC_ITREMC40Item RemitoItem Remito
2@!
SiVR



NJC_ESPECIC30EspecieEspecie
2@!
SiVR

IIF(!INCLUI,POSICIONE("SB1",1,XFILIAL("SB1")+NJC->NJC_PROD,"B1_CODESP"),"")
NJC_DESESPC300Desc EspecieDesc Especie             
2@!
SiVR

IIF(!INCLUI,POSICIONE("SX5",1,XFILIAL("SX5")+"W2"+POSICIONE("SB1",1,XFILIAL("SB1")+NJC->NJC_PROD,"B1_CODESP"),"X5_DESCSPA"),"") 
NJC_CODPROC60Cod. CompradCodigo de comprador
3@!
SiVR



NJC_TIENDAC20Tienda ComTienda Comprador
3@!
SiVR



NJC_CUITCOC110CUIT comp.CUIT comprador           
3@R 99-99999999-9
SiVR



NJC_NOMCOMC300CompradorComprador
3@!
SiVR



NJC_NROIB C110Nro. Ingr. BNro. Ingr. Brut.         
3@!
SiVR



NJC_VENDEDC60VendedorVendedor
4@!
SiVR



NJC_LOJAVEC20Tienda VendTienda Vendedor          
4@!
SiVR



NJC_NOMVEDC300Nombr Vend.Nombre vendedor          
4@!
SiVR



NJC_CUITVEC110CUIT VendedoCUIT Vendedor            
4@R 99-99999999-9
SiVR



NJC_NROIBVC110Nro. Ingr. BNro. Ingr. Brut.         
4@!
SiVR



NJC_ACTCORC10Actua Corredor?

5@!
SiAR
1=Si;2=No;                                                    

NJC_LIQCORC10Liq. Corredor?

5@!
SiAR
1=Si;2=No;                                                    

NJC_CORREDC60Cod. CorredorCodigo de corredorSA2A5@!
SiAR



NJC_LOJCORC20Tda CorredorTienda Corredor
5@!
SiAR



NJC_CUITCRC110CUIT Corred.CUIT Corredor         
5@R 99-99999999-9
SiVR



NJC_NOMCORC300Nomb Corred.Nomb Corredor
5@!
SiVR



NJC_NOIBCR C110Nro. Ingr. BNro. Ingr. Brut.         
5@!
SiVR



NJC_PRECO N123Prec. Refer.Precio referencia
6@E 9.999
SiAR



NJC_DATAFPD80Fch. Fij. OpFecha fijación operación
6

SiAR



NJC_PORTO C40PuertoPuertoU56@!ExistCpo("SX5","U5"+M->NJC_PORTO)SiARSi
14'
NJC_NOMEPOC400Nomb PuertoNomb Puerto              
6@!
SiVR



NJC_GDOREFC2
Grado Ref. EGrado Ref. Ent           
6@!
SiAR
G1=Grado 1;G2=Grado 2;G3=Grado3; 

NJC_FRETE N122Prec Flete TPrec Flete TN            
6@E 999,999,999.99
SiAR



NJC_PESSCEN162P. Neto s/CeP. Neto s/Cert           
6@E 9,999,999,999,999.99
SiAR



NJC_CODSAFC150Campaña PpalCampaña Ppal.NJU6@!
SiAR



NJC_CODSFPC5
Desc ConsechaDesc Consecha
6@!
SiVR



NJC_CODPGOC50Cond PagoCond PagoSE46@!ExistCpo("SE4")SiAR



NJC_TESC30TESTipo de Entrada/Salida SF46@9
SiAR



NJC_FACTORN73FactorFactor
7@E 999.999
SiAR



NJC_CONPRON73Cont. Protei.Cont. Proteico           
7@E 999.999
SiAR



NJC_STATUSC20StatusStatus

@!
SiAR
1=Pendiente;2=Autorizada;3=Anulada

NJC_DOC   C200No. FacturaNumero de Factura

@!
SiAR



NJC_SERIE C30SerieSerie

@!
SiAR



NJC_PESTOTN80Peso Total Peso Total

@E 99,999,999
NoAR



NJC_SUBOPEN162SubTtl OperaSubtotal Operación

@E 9,999,999,999,999.99
NoAR



NJC_IMPIVAN162Total IVA Total IVA

@E 9,999,999,999,999.99
NoAR



NJC_OPEIVAN162Tot. Op IVA Total Operación c/IVA

@E 9,999,999,999,999.99
NoAR



NJC_TOTDEDN162Total DeduccTotal Deducciones

@E 9,999,999,999,999.99
NoAR



NJC_RETAFIN162Tot.Ret AFIPTotal Retenciones AFIP

@E 9,999,999,999,999.99
NoAR



NJC_OTRRETN162Tot Otra RetTotal otras retenciones

@E 9,999,999,999,999.99
NoAR



NJC_IMPNAPN162Imp Neto PagImporte neto a pagar

@E 9,999,999,999,999.99
NoAR



NJC_IVARG2N162IVA RG2300 IVA RG2300

@E 9,999,999,999,999.99
NoAR



NJC_PAGSCON162Pag s/CondicPago s/condiciones

@E 9,999,999,999,999.99
NoAR



NJC_CREDEBN162Cred./Deb. Credito/Debito

@E 9,999,999,999,999.99
NoAR



NJC_PROVORC20Prov.Origen Provincia Origen 12
@!
SiAR



NJC_LIQC10LiquidaciónLiquidación



SiVR
N=Pre liquidación;S=Liquidación"N"
NJC_STAFIPC10Estatus AfipEstatus Afip



NoVR
1=Activo;2=Anulado

NJC_COEAJU C120COE AjustadoCOE Ajustado



SiVR



NJC_DTTRAND80Dt. Trans. AfipData Transmissao Afip



NoVR



NL3
CampoTipoTamañoDecimalesNombre del campoDescripciónF3FolderPictureValidacionBrowseVisualContextoObligatorioComboRelacaoWhen
NL3_FILIALC

FilialFilial










NL3_TIPLIQC10Tipo certificadoTipo de Certificado

@!

AR
1=F1116/RT ; 2=F1116/A

NL3_CODCETC100Cert.Depos.Certificado de DepositoNJA001
@!ExistCpo("NJA") SiAR


FUNNAME() == "FISA828" .AND. M->NJC_INFCER=="1"
NL3_CODLIQC120LiquidaciónLiquidación

@!
SiARSi
IIF(INCLUI,M->NJC_CODLIQ,NJC->NJC_CODLIQ)
NL3_CODSAFC100CampanaCampana

@!
SiAR



NL3_COECERC100CEO CertCEO Certificado

@!
SiVV



NL3_DATAD80Fecha CierreFecha de cierre



SiAR



NL3_LOCPROC60Loc. Proc.Localidad de procedenciaS1
@!
SiVR



NL3_PESNETN82Pes Net KgPeso Neto en Kg

@E 99,999.99
SiAR



NL3_PROPROC60Prov. Proc.Provincia de procedencia12
@!
SiVR



NL4
CamposTipoTamañoDecimalesNombre del campoDescripciónF3FolderPictureValidacionBrowseVisualContextoObligatorioComboRelacaoWhen
NL4_FILIALC

FilialFilial










NL4_CODLIQC120LiquidaciónLiquidación

@!
SiAR

IIF(INCLUI,M->NJC_CODLIQ,NJC->NJC_CODLIQ) 
NL4_CODTESC60Cod. TESCodigo TESSF4
@!
SiAR



NL4_DESTESC300Desc. TESDescripcion TES

@!
SiVR

IIF(!INCLUI,POSICIONE("SF4",1,XFILIAL("SF4")+NL4->NL4_CODTES,"F4_TEXTO"),"")                                                    
NL4_DETALLM100DetalleDetalle



SiAR



NL4_DIAALMN40Dias AlmacenDias de almacenamiento

@E 9,999
SiAR



NL4_QUANTN112CantidadCantidad

@E 99,999,999.99
SiAR



NL4_IMPORTN112ImporteImporte

@E 99,999,999.99
SiAR



NL4_ITEMC60ItemItem

@!
SiARSi


NL4_PORCENN42PorcentajePorcentaje

@E 9.99
SiAR



NL4_PRECION122Preci
Precio


@E 999,999,999.99
SiAR



NL4_TIPDEDC130Tp. OP./Ded.Tipo Operação/DeduçãoFR8
@!PERTENCE("12") 
SiARSi


FISA828ActDed(M->NL4_TIPO) 
NL4_TIPOC10Tp. de ItemTipo de Item

@!PERTENCE("12") SiARSi1=Operacion;2=Deduccion;

NL4_DESCC300DescripciónDescripción

@!
SiAR



NL4_TIPAJUC10Tipo AjusteTipo Ajuste



SiAR
1=Ajuste débito;2=Ajuste crédito

SB1
CampoTipoTamañoDecimalesNombre del campoDescripciónF3FolderPictureValidacionBrowseVisualContextoObligatorioComboRelacaoWhen
B1_CODESPC50Cod. EspecieCódigo de EspecieSU









SD1
CampoTipoTamañoDecimalesNombre del campoDescripciónF3FolderPictureValidacionBrowseVisualContextoObligatorioComboRelacaoWhen
D1_LIQGRC10Liq Granos  Liquidacion de granos    

@!                                           Vazio() .or. Pertence('0123')NoAR



D1_COELQ  C120COE Cert. Certificado COE

@!   
NoAR



D1_COMIS1 N52Comision 1 Porcentaje de Comision 1

@E 99.99
NoAR



D1_TPLIQ C10Tipo Liq. Tipo de Liquidación



NoAR
1=Primaria;2=Secundaria

SD2
CampoTipoTamañoDecimalesNombre del campoDescripciónF3FolderPictureValidacionBrowseVisualContextoObligatorioComboRelacaoWhen
D2_LIQGRC10Liq Granos  Liquidacion de granos    

@!                                           Vazio() .or. Pertence('0123')NoAR



D2_COELQ C120COE Cert. Certificado COE

@!   
NoAR



SF1
CampoTipoTamañoDecimalesNombre del campoDescripciónF3FolderPictureValidacionBrowseVisualContextoObligatorioComboRelacaoWhen
F1_LIQGRC10Liq Granos  Liquidacion de granos    

@!                                           Vazio() .or. Pertence('0123')






SF2
CampoTipoTamañoDecimalesNombre del campoDescripciónF3FolderPictureValidacionBrowseVisualContextoObligatorioComboRelacaoWhen
F2_LIQGRC10Liq Granos  Liquidacion de granos    

@!                                           Vazio() .or. Pertence('0123')






FR8
CampoTipoTamañoDecimalesNombre del campoDescripciónF3FolderPictureValidacionBrowseVisualContextoObligatorioComboRelacaoWhen
FR8_FILIALC10Filial Sucursal

@!                                           Vazio() .or. Pertence('0123')No





FR8_CODIGOC30Cod. Operac.Cod. Operac.

@!   
SiAR



FR8_CODPROC150CodigoCodigoSB1
@!   
SiAR



FR8_DESCC300DescripciónDescripción

@!   
SiAR



FR8_TIPOEC10Tipo Op. EntTipo Operación Entrada

9
SiAR
1=Operación;2=Deducción

FR8_TIPOC10Tipo Op. SalTipo Operación Salida

9
SiAR
1=Operación;2=Deducción

FR8_TESEC30TES Entrada TES Entrada SF4

ExistCpo("SF4") .And. Iif(M->FR8_TIPOE == "1",M->FR8_TESE<"500",Iif(M->FR8_TIPOE == "2",M->FR8_TESE>"500",.T.))SiAR



FR8_TESC30TES Salida TES Salida SF4

ExistCpo("SF4") .And. Iif(M->FR8_TIPO == "1",M->FR8_TES>"500",Iif(M->FR8_TIPO == "2",M->FR8_TES<"500",.T.))SiAR



FR8_CALCSEC10Calc. SellosCalcula sellos

9
SiAR
1=Si;2=No

FR8_CALCDRC10Calc. Der. RCalcula Derechos/Registro

9
SiAR
1=Si;2=No

FR8_TIPOOPC10Tipo Operac.Tipo de operación

9
SiAR
1=Comision;2=Calidad;3=Gastos Intermediario;4=Almacen;5=Otros

...