...
Tener el campo F1/F2_TCOMP habilitado en el encabezado de la Factura para poder ingresar los tipos de comprobantes 033 (Comercialización de granos). En caso de que no cuente con el campo F1/F2_TCOMP habilitado para su captura, es necesario utilizar el punto de entrada LOCXPE33.
A continuación un ejemplo para la utilización del PE:
Para la inclusión del campo F1/F2_TCOMP en el encabezado de la Factura y la Nota de Crédito se utiliza el Punto de Entrada LOCXPE33 como ejemplo:
#INCLUDE "PROTHEUS.CH"
//Punto de entrada para agregar el campo F1/F2_TCOMP en el encabezado de la factura de compras
User Function LOCXPE33()
Local aCampEnc :=PARAMIXB[1]
If FunName() $("MATA101N")
aAdd(aCampEnc,{NIL,"F1_TCOMP",NIL,NIL,NIL,"",NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,".T."})
EndIf
If FunName() $("MATA466N")
aAdd(aCampEnc,{NIL,"F2_TCOMP",NIL,NIL,NIL,"",NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,".T."})
EndIf
Return aCampEnc
Es necesario asegurarse que calcule Retención de IVA.
...
...
NOTA: El desarrollo se realizó para Orden de Pago y para la Pre-Orden.
Para utilizar el campo F1/F2_TCOMP es necesario utilizar el punto de entrada LocxPE33.
...
A continuación un ejemplo para la utilización del PE:
Para la inclusión del campo F1/F2_TCOMP en el encabezado de la Factura y la Nota de
...
Crédito se utiliza el
...
Punto de
...
Entrada LOCXPE33 como ejemplo:
...
#INCLUDE "PROTHEUS.CH"
//Punto de entrada para agregar el campo F1/F2_TCOMP en el encabezado de la factura de compras
User Function LOCXPE33()
...
Local aCampEnc :=PARAMIXB[1]
...
If FunName() $("MATA101N")
...
...
aAdd(aCampEnc,{NIL,"F1_TCOMP",NIL,NIL,NIL,"",NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,".T."})
EndIf
If FunName() $("MATA466N")
...
...
aAdd(aCampEnc,{NIL,"F2_TCOMP",NIL,NIL,NIL,"",NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,".T."})
...
Return aCampEnc
...
EndIf
Return aCampEnc