https://documentacion.conarpesa.com.ar/index.php?action=history&feed=atom&title=TOPCAB_implemented 2026-05-05T17:01:57Z Historial de revisiones de esta página en la wiki MediaWiki 1.41.1 https://documentacion.conarpesa.com.ar/index.php?title=TOPCAB_implemented&diff=9171&oldid=prev 2025-05-19T18:53:59Z

<p></p> <table style="background-color: #fff; color: #202122;" data-mw="interface"> <col class="diff-marker" /> <col class="diff-content" /> <col class="diff-marker" /> <col class="diff-content" /> <tr class="diff-title" lang="es"> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Revisión anterior</td> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revisión del 20:53 19 may 2025</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l63">Línea 63:</td> <td colspan="2" class="diff-lineno">Línea 63:</td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>*Refresca los totales del comprobante.</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>*Refresca los totales del comprobante.</div></td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>*Actualiza los datos del comprobante en la base de datos.</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>*Actualiza los datos del comprobante en la base de datos.</div></td></tr> <tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr> <tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">===procedure CalcularRetenciones(aLiquida_Fecha: TDatetime; aLiquida: Boolean)===</ins></div></td></tr> <tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">Calcula las retenciones del comprobante.</ins></div></td></tr> </table>

Luciano Carou https://documentacion.conarpesa.com.ar/index.php?title=TOPCAB_implemented&diff=9170&oldid=prev 2025-05-19T18:53:12Z

<p>Página creada con «=Descripción= El objeto &#039;&#039;&#039;TOPCAB_implemented&#039;&#039;&#039; (Cabecera de ordenes de pago OPCAB.) extiende a <a href="/index.php?title=ORDENES_PAGO" title="ORDENES PAGO">ORDENES PAGO</a>. =<a href="/index.php?title=QUEESESTO/IDENTIDAD&amp;action=edit&amp;redlink=1" class="new" title="QUEESESTO/IDENTIDAD (la página no existe)">Identidad</a>= <a href="/index.php?title=Categor%C3%ADa:MANUAL/PROGRAMADOR" title="Categoría:MANUAL/PROGRAMADOR">Category:MANUAL/PROGRAMADOR</a> <a href="/index.php?title=Categor%C3%ADa:DATASETS/IMPLEMENTED" title="Categoría:DATASETS/IMPLEMENTED">Category:DATASETS/IMPLEMENTED</a> *Ancestro: <a href="/index.php?title=TcmpCABECERA_pragma_XTD_implemented&amp;action=edit&amp;redlink=1" class="new" title="TcmpCABECERA pragma XTD implemented (la página no existe)">TcmpCABECERA_pragma_XTD_implemented</a> *Carpeta: C:\DevelopPrx\implemented *Archivo: OPCAB_implemented.pas =Declaración= &lt;pre&gt; type TOPCAB_implemented = class(TCMPCABECERA_PRAGMA_XTD_implemented) private FLiquida_Moneda: String;…»</p> <p><b>Página nueva</b></p><div>=Descripción=<br /> El objeto &#039;&#039;&#039;TOPCAB_implemented&#039;&#039;&#039; (Cabecera de ordenes de pago OPCAB.) extiende a [[ORDENES PAGO]].<br /> <br /> =[[QUEESESTO/IDENTIDAD|Identidad]]=<br /> [[Category:MANUAL/PROGRAMADOR]]<br /> [[Category:DATASETS/IMPLEMENTED]]<br /> *Ancestro: [[TcmpCABECERA_pragma_XTD_implemented]]<br /> *Carpeta: C:\DevelopPrx\implemented<br /> *Archivo: OPCAB_implemented.pas<br /> <br /> =Declaración=<br /> &lt;pre&gt;<br /> type<br /> TOPCAB_implemented = class(TCMPCABECERA_PRAGMA_XTD_implemented)<br /> private<br /> FLiquida_Moneda: String;<br /> FLiquida_Fecha: TDatetime;<br /> FLiquida_Cotizacion: Double;<br /> FLiquidando: Boolean;<br /> protected<br /> function Redondear(aNumero: Double; aDecs: Integer): Double;<br /> public<br /> property Liquida_Fecha: TDatetime read FLiquida_Fecha write FLiquida_Fecha;<br /> property Liquida_Moneda: String read FLiquida_Moneda write FLiquida_Moneda;<br /> property Liquida_Cotizacion: Double read FLiquida_Cotizacion write FLiquida_Cotizacion;<br /> property Liquidando: Boolean read FLiquidando;<br /> <br /> constructor Create(AOwner: TComponent); override;<br /> destructor Destroy; override;<br /> procedure Loaded; override;<br /> <br /> procedure GetPopupOptions(Sender: TprxPopupMenu); override;<br /> <br /> function PuedeRegistrar(var aMsg: String; aOP: String): Boolean; override;<br /> <br /> procedure Totalizar;<br /> function EsCodigoTemporario: Boolean;<br /> procedure LiquidarClick(Sender: TObject); overload;<br /> procedure LiquidarClick(aLiquida_Moneda: String; aLiquida_Fecha: TDatetime; aLiquida_Cotizacion: Double; aLiquida_Retenciones: Boolean; aLiquidaOriginal: Boolean); overload;<br /> procedure CalcularRetenciones(aLiquida_Fecha: TDatetime; aLiquida: Boolean);<br /> <br /> function UpdateBatchXtd(AffectRecords: TAffectRecords = arAll): Boolean; override;<br /> <br /> function ReabrirComprobante: Boolean; override;<br /> published<br /> end;<br /> &lt;/pre&gt;<br /> <br /> =Implementación=<br /> ===function PuedeRegistrar(var aMsg: String; aOP: String): Boolean===<br /> Verifica con [[COMPROBANTES/PERIODOS]] si el comprobante tiene una fecha válida según la fecha de liquidación y no la del comprobante.<br /> <br /> ===function Redondear(aNumero: Double; aDecs: Integer): Double===<br /> Función que redondea un cálculo a dos decimales usando SQL.<br /> <br /> ===procedure Totalizar===<br /> Totaliza los comprobantes y los asigna a los FDEBITOS y FCREDITOS, luego calcula el neto restando también las FRETENCIONES.<br /> <br /> ===procedure LiquidarClick===<br /> Calcula la liquidación de la orden de pago:<br /> *Primero aplica la cotización de liquidación a cada comprobante cuando corresponda, con eso calcula el nuevo monto a pagar.<br /> *Con los nuevos importes calcula las retenciones.<br /> *Refresca los totales del comprobante.<br /> *Actualiza los datos del comprobante en la base de datos.</div>

Luciano Carou