https://documentacion.conarpesa.com.ar/index.php?action=history&feed=atom&title=TOPCMP_implemented 2026-05-06T02:58:16Z Historial de revisiones de esta página en la wiki MediaWiki 1.41.1 https://documentacion.conarpesa.com.ar/index.php?title=TOPCMP_implemented&diff=9159&oldid=prev 2025-05-19T18:35:31Z

<p>Página creada con «=Descripción= El objeto &#039;&#039;&#039;TOPCMP_implemented&#039;&#039;&#039; (Detalle de comprobantes de órdenes de pago OPCMP.) extiende a <a href="/index.php?title=ORDENES_PAGO/COMPROBANTES" title="ORDENES PAGO/COMPROBANTES">ORDENES PAGO/COMPROBANTES</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=TprxADODataSetDetail" title="TprxADODataSetDetail">TprxADODataSetDetail</a> *Carpeta: C:\DevelopPrx\implemented *Archivo: OPCMP_implemented.pas =Declaración= &lt;pre&gt; type TOPCMP_implemented = class(TprxADODataSetDetail) private FTotalizar: Boolean; prote…»</p> <p><b>Página nueva</b></p><div>=Descripción=<br /> El objeto &#039;&#039;&#039;TOPCMP_implemented&#039;&#039;&#039; (Detalle de comprobantes de órdenes de pago OPCMP.) extiende a [[ORDENES PAGO/COMPROBANTES]].<br /> <br /> =[[QUEESESTO/IDENTIDAD|Identidad]]=<br /> [[Category:MANUAL/PROGRAMADOR]]<br /> [[Category:DATASETS/IMPLEMENTED]]<br /> *Ancestro: [[TprxADODataSetDetail]]<br /> *Carpeta: C:\DevelopPrx\implemented<br /> *Archivo: OPCMP_implemented.pas<br /> <br /> =Declaración=<br /> &lt;pre&gt;<br /> type<br /> TOPCMP_implemented = class(TprxADODataSetDetail)<br /> private<br /> FTotalizar: Boolean;<br /> protected<br /> function BuscarFechaPago: Boolean;<br /> public<br /> property Totalizar: Boolean read FTotalizar write FTotalizar;<br /> <br /> constructor Create(AOwner: TComponent); override;<br /> destructor Destroy; override;<br /> procedure Loaded; override;<br /> <br /> procedure GetPopupOptions(Sender: TprxPopupMenu); override;<br /> <br /> procedure InsertXtd(Sender: TObject); override;<br /> procedure EditXtd(Sender: TObject); override;<br /> procedure DeleteXtd(Sender: TObject); override;<br /> function PostXtd(Sender: TObject): Boolean; override;<br /> published<br /> end;<br /> &lt;/pre&gt;<br /> <br /> =Implementación=<br /> ===procedure DeleteXtd(Sender: TObject)===<br /> Al eliminar un comprobante totaliza la cabecera del comprobante.<br /> <br /> ===function PostXtd(Sender: TObject): Boolean===<br /> Al postear un registro calcula los siguientes campos:<br /> *FIMPORTE: multiplica la FCOTIZACION * FCANTIDAD.<br /> *FIMPORTE_RXP: multiplica FCOTIZACION_RXP * FCANTIDAD.<br /> *FDIFCAMBIO: calcula la diferencia de cambio usando (FCOTIZACION_RXP - FCOTIZACION) * FCANTIDAD.</div>

Luciano Carou