agregue varias funciones para poder ejecutar el programa de facturas lsoto

This commit is contained in:
Luis
2026-10-05 23:11:14 -04:00
parent f414a150d9
commit 2498c785d3
4 changed files with 1345 additions and 323 deletions
File diff suppressed because it is too large Load Diff
File diff suppressed because it is too large Load Diff
+174
View File
@@ -0,0 +1,174 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="60003" version="7.00">
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5cm" RWTopMargin="0.5cm" RWRightMargin="0.5cm" RWBottomMargin="0.5cm">
<report:FormatList>
<report:Format-PDF/>
<report:Format-image/>
<report:Format-SVG/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../vedir/veprmt022.rdd" RWFglReportName="imp_factura"/>
<report:Conflicts>
<report:Conflict nodeName="MiniPage1" message="Node was in trigger &quot;Group factura [0; unbounded]&quot;, but trigger was removed during schema update"/>
<report:Conflict nodeName="subtotal" message="Node was in trigger &quot;Group factura [0; unbounded]&quot;, but trigger was removed during schema update"/>
<report:Conflict nodeName="final" message="Node was in trigger &quot;Group factura [0; unbounded]&quot;, but trigger was removed during schema update"/>
</report:Conflicts>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="MiniPage1" width="max" length="min" fontName="Arial">
<LAYOUTNODE name="Layout Node7" width="min" length="min" alignment="near" swapX="true" port="firstPageHeader">
<LAYOUTNODE name="Encabezado" width="min" length="max" alignment="near" layoutDirection="leftToRight" floatingBehavior="enclosed">
<LAYOUTNODE name="LayoutNode40" width="min" length="min" alignment="far" layoutDirection="topToBottom" floatingBehavior="enclosed">
<LAYOUTNODE name="imagen" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<IMAGEBOX name="ImageBox1_1_1" length="70" alignment="near" floatingBehavior="enclosed" url="{{&quot;file:///E:/MARMOTECHC/BIN320/IMAGENES/logo.png&quot;}}" intendedResolution="120"/>
</LAYOUTNODE>
<LAYOUTNODE name="infocia" width="min" length="min" anchorY="1" fontSize="12" floatingBehavior="enclosed">
<WORDBOX name="WordBox9" alignment="near" fontBold="true" baselineType="leftleft" text="{{sucnombre.trim()}}"/>
<WORDWRAPBOX name="WordWrapBox5" width="width(&quot;M&quot;)*33" fontSize="9" floatingBehavior="enclosed" text="{{direccion_sucursal.trim()}}"/>
<LAYOUTNODE name="ourAdress" x="0" width="min" length="min" anchorX="0" layoutDirection="leftToRight" floatingBehavior="enclosed">
<LAYOUTNODE name="Layout Node11" width="min" length="min">
<WORDBOX name="WordBox11_1" alignment="near" fontSize="9" baselineType="leftleft" text="{{&quot;RNC:&quot;}}"/>
<WORDBOX name="WordBox12" alignment="baseline" fontSize="9" baselineType="leftleft" text="Telefono:"/>
</LAYOUTNODE>
<LAYOUTNODE name="Layout Node12" width="min" length="min">
<WORDBOX name="WordBox93" alignment="baseline" fontSize="9" floatingBehavior="enclosed" text="{{p_companias.rnc}}"/>
<WORDBOX name="WordBox15" alignment="baseline" fontSize="9" baselineType="leftleft" text="{{p_companias.telefono}}"/>
</LAYOUTNODE>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox32_1_1" alignment="baseline" baselineType="leftleft" text="{{&quot;Fecha Emision: &quot;+x.fecha_factura.value}}"/>
</LAYOUTNODE>
</LAYOUTNODE>
</LAYOUTNODE>
<LAYOUTNODE name="NCF" x="20" y="290" width="282.6" length="min" alignment="near" floatingBehavior="enclosed">
<WORDBOX name="WordBox31_1" width="max" alignment="baseline" fontSize="12" fontBold="true" baselineType="leftleft" textAlignment="right" text="{{descripcion.trim()}}"/>
<WORDBOX name="WordBox73_1" width="max" alignment="baseline" fontSize="12" baselineType="leftleft" textAlignment="right" text="{{ch_ncf.trim()}}"/>
<WORDBOX name="ch_fecha Value" rtl:condition="ncffechaVencimiento==1" width="max" alignment="near" floatingBehavior="enclosed" textAlignment="right" text="{{&quot;Vencimiento Secuencia: &quot;+ch_fecha}}"/>
</LAYOUTNODE>
</LAYOUTNODE>
<MINIPAGE name="razonsolcial" width="min" length="max" alignment="far" layoutDirection="leftToRight" roundedCorners="true" borderWidth="1" borderStyle="solid" borderTopColor="#0087cb" borderRightColor="#ffffff" borderBottomColor="#0087cb" borderLeftColor="#ffffff">
<LAYOUTNODE name="customerAddress" x="0.5cm" width="min" length="min" anchorY="1" layoutDirection="leftToRight" floatingBehavior="enclosed">
<LAYOUTNODE name="Layout Node15" width="min" length="min" alignment="near" fontSize="8">
<LAYOUTNODE name="Layout Node17" width="min" length="min" fontItalic="true" layoutDirection="leftToRight">
<WORDBOX name="WordBox18" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;Razon Social Cliente: &quot;}}"/>
<WORDBOX name="WordBox19" alignment="near" baselineType="leftleft" text="{{&quot;(&quot;+x.tipo_cliente.format(&quot;&lt;&lt;&quot;)+&quot;-&quot;+x.sec_cliente.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)+&quot;)&quot;+x.nombre.trim()}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="Layout Node33" width="min" length="min" layoutDirection="leftToRight">
<WORDBOX name="WordBox64" width="2.2cm" alignment="baseline" fontBold="true" baselineType="leftleft" text="{{&quot;RNC o CEDULA: &quot;}}"/>
<WORDBOX name="WordBox105" floatingBehavior="enclosed" text="{{rnc.trim()}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="direccion" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox125" width="2.2cm" alignment="near" fontBold="true" floatingBehavior="enclosed" text="{{&quot;Direccion: &quot;}}"/>
<WORDWRAPBOX name="WordWrapBox6" width="width(&quot;M&quot;)*34" floatingBehavior="enclosed" text="{{x.direccion}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="telefonoemail" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox126" width="2.2cm" floatingBehavior="enclosed" text="Telefono"/>
<WORDBOX name="WordBox123" width="2.3cm" floatingBehavior="enclosed" text="{{cliente_bas.telefono}}"/>
<WORDBOX name="WordBox127" width="4cm" floatingBehavior="enclosed" text="{{&quot; Email:&quot;+cemail.trim()}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="representante" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox128" width="2.2cm" floatingBehavior="enclosed" text="Representante"/>
<WORDBOX name="WordBox124" width="4cm" floatingBehavior="enclosed" text="{{x.nombre_vend.trim()}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode52" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox121" floatingBehavior="enclosed" text="{{&quot;TASA: &quot;+x.prima_us}}"/>
</LAYOUTNODE>
</LAYOUTNODE>
</LAYOUTNODE>
<LAYOUTNODE name="datosfactura" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<LAYOUTNODE name="LayoutNode53" x="14.1732" width="278.239" length="min" alignment="baseline" layoutDirection="topToBottom" floatingBehavior="enclosed">
<LAYOUTNODE name="LayoutNode55" x="120" width="min" length="min" fontSize="12" fontBold="true" fontItalic="true" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox129" width="3cm" floatingBehavior="enclosed" text="Factura No.:"/>
<WORDBOX name="WordBox130" width="2cm" alignment="far" floatingBehavior="enclosed" text="{{x.factura.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode56" x="120" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox131" width="3cm" alignment="far" floatingBehavior="enclosed" text="Cotizacion No.:"/>
<WORDBOX name="WordBox132" floatingBehavior="enclosed" text="{{x.conduce.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode57" x="120" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox133" width="3cm" floatingBehavior="enclosed" text="Orden No.:"/>
<WORDBOX name="WordBox134" floatingBehavior="enclosed" text="{{x.orden.format(&quot;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&amp;&quot;)}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode58" x="120" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox135" width="4cm" alignment="baseline" floatingBehavior="enclosed" text="{{&quot;Condicion Cobros: &quot;+condicion.descrip.trim()}}"/>
</LAYOUTNODE>
</LAYOUTNODE>
</LAYOUTNODE>
</MINIPAGE>
<LAYOUTNODE name="LayoutNode41" width="15" length="min" alignment="near" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox" alignment="baseline" floatingBehavior="enclosed"/>
</LAYOUTNODE>
<MINIPAGE name="StripeLayouter19" width="min" length="max" bgColor="#e5e5e5" fontBold="true" layoutDirection="leftToRight" roundedCorners="true" borderWidth=".9" borderStyle="solid">
<WORDBOX name="WordBox40" width="2.7cm" alignment="baseline" baselineType="leftleft" textAlignment="center" text="Cantidad"/>
<WORDWRAPBOX name="WordWrapBox1" width="8cm" alignment="baseline" baselineType="leftleft" floatingBehavior="free" text="Descripcion"/>
<WORDWRAPBOX name="WordWrapBox" width="width(&quot;M&quot;)*6" alignment="baseline" floatingBehavior="enclosed" text="Unidad de Medida" textAlignment="center"/>
<WORDBOX name="WordBox41" width="2cm" alignment="baseline" baselineType="rightright" textAlignment="right" text="Precio"/>
<WORDBOX name="WordBox98_1" width="5.5cm" floatingBehavior="enclosed" textAlignment="right" text="Total"/>
</MINIPAGE>
<MINIPAGE name="StripeLayouter21" width=".2cm" layoutDirection="leftToRight"/>
</LAYOUTNODE>
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="PAGINADETALLE" width="max" lengthAdjustment="shrinkToChildren" swapX="true" hidePageFooterOnLastPage="true" roundedCorners="true" borderWidth=".08" borderStyle="solid">
<MINIPAGE name="DETALLEFACTURA" width="min" length="max" layoutDirection="leftToRight">
<LAYOUTNODE name="LayoutNode31" width="min" length="max" fontSize="8" layoutDirection="leftToRight" roundedCorners="true" borderWidth=".9" borderStyle="solid">
<WORDBOX name="cantidad" width="2.5cm" alignment="baseline" baselineType="leftleft" textAlignment="left" text="{{z.cantidad.format(&quot;###,##&amp;.##&quot;)}}"/>
<WORDWRAPBOX name="WordWrapBox3" width="8cm" alignment="baseline" baselineType="leftleft" text="{{z.descrip_esp.trim()}}"/>
<WORDBOX name="WordBox97" width="2cm" alignment="baseline" floatingBehavior="enclosed" text="{{z.unidad_med.trim()}}"/>
<WORDBOX name="precio" width="2cm" alignment="baseline" baselineType="leftleft" textAlignment="right" text="{{z.precio.format(&quot;###,###.##&quot;)}}"/>
<WORDBOX name="monto" width="6cm" anchorY="1" alignment="baseline" bgColor="#d3d3d3" baselineType="leftleft" floatingBehavior="enclosed" textAlignment="right" text="{{z.monto_fact.format(&quot;##,###,###.##&quot;)}}"/>
</LAYOUTNODE>
</MINIPAGE>
</MINIPAGE>
</rtl:match>
<LAYOUTNODE name="subtotal" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox100" width="17.4cm" floatingBehavior="enclosed" text="Subtotal" borderStyle="none"/>
<WORDBOX name="WordBox101" width="3.1cm" alignment="baseline" bgColor="#d3d3d3" floatingBehavior="enclosed" textAlignment="right" text="{{simbolo.trim()+x.sub_total.format(&quot;###,###,###.##&quot;)}}" roundedCorners="true" borderWidth=".9" borderStyle="solid"/>
</LAYOUTNODE>
<LAYOUTNODE name="final" width="min" length="min" layoutDirection="topToBottom" floatingBehavior="enclosed">
<LAYOUTNODE name="LayoutNode45" width="min" length="min" alignment="near" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<WORDBOX name="WordBox109" width="17.4cm" alignment="baseline" floatingBehavior="enclosed" text="Descuento"/>
<WORDBOX name="WordBox110" width="3.1cm" alignment="baseline" bgColor="#d3d3d3" floatingBehavior="enclosed" textAlignment="right" text="{{simbolo.trim()+x.desc_valor.format(&quot;###,###,###.##&quot;)}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode46" width="min" length="min" alignment="near" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<WORDBOX name="WordBox111" width="17.4cm" floatingBehavior="enclosed" text="{{&quot;Neto S/Impuesto&quot;}}"/>
<WORDBOX name="WordBox112" width="3.1cm" alignment="baseline" bgColor="#d3d3d3" floatingBehavior="enclosed" textAlignment="right" text="{{simbolo.trim()+neto_s_imp.format(&quot;###,###,###.##&quot;)}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="ITBIS" width="min" length="min" alignment="near" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="false">
<WORDBOX name="WordBox160" width="17.4cm" floatingBehavior="enclosed" text="{{&quot;Itbis&quot;}}"/>
<WORDBOX name="WordBox102_1" width="3.1cm" alignment="baseline" bgColor="#d3d3d3" floatingBehavior="enclosed" textAlignment="right" text="{{simbolo.trim()+x.itbi.format(&quot;###,###,###.##&quot;)}}" roundedCorners="true" borderWidth=".9" borderStyle="solid"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode43" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox103" width="17.3cm" alignment="far" floatingBehavior="enclosed" text="Total" roundedCorners="true" borderWidth=".9" borderStyle="solid"/>
<WORDBOX name="WordBox104" width="3.1cm" bgColor="#d3d3d3" floatingBehavior="enclosed" textAlignment="right" text="{{simbolo.trim()+x.total_fact.format(&quot;###,###,###.##&quot;)}}" roundedCorners="true" borderWidth=".9" borderStyle="solid"/>
</LAYOUTNODE>
<MINIPAGE name="MiniPage2" width=".1cm" bgColor="#0087cb" layoutDirection="leftToRight"/>
<WORDBOX name="WordBox106" length="1cm" floatingBehavior="enclosed"/>
<LAYOUTNODE name="totalesmonedas" rtl:condition="x.prima_us&gt;1" x="max-5.3cm" width="min" length="min" fontSize="9" layoutDirection="topToBottom" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<WORDBOX name="WordBox148" width="4cm" length=".7cm" alignment="baseline" fontBold="true" floatingBehavior="enclosed" textAlignment="center" text="{{&quot;INFORMACION EN RD$&quot;}}"/>
<LAYOUTNODE name="LayoutNode67" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox155" width="2cm" floatingBehavior="enclosed" text="{{&quot;ITBIS:&quot;}}"/>
<WORDBOX name="WordBox156" width="3cm" floatingBehavior="enclosed" textAlignment="right" text="{{chitbis.trim()}}"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode68" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDBOX name="WordBox157" width="2cm" floatingBehavior="enclosed" text="{{&quot;MONTO TOTAL:&quot;}}"/>
<WORDBOX name="WordBox158" width="3cm" floatingBehavior="enclosed" textAlignment="right" text="{{chneto.trim()}}"/>
</LAYOUTNODE>
<WORDBOX name="WordBox159" length="1cm" floatingBehavior="enclosed"/>
</LAYOUTNODE>
<LAYOUTNODE name="LayoutNode69" width="min" length="min" layoutDirection="leftToRight" floatingBehavior="enclosed">
<WORDWRAPBOX name="WordWrapBox7" width="width(&quot;M&quot;)*60" length="1cm" floatingBehavior="enclosed" text="{{&quot;OBSERVACIONES: &quot;+observacion.trim()}}"/>
</LAYOUTNODE>
<MINIPAGE name="MiniPage" rtl:condition="muestraQR==1" width="min" length="max" layoutDirection="leftToRight">
<BARCODEBOX name="BarCodeBox1" width="4cm" length="4cm" alignment="near" floatingBehavior="enclosed" codeType="qr-code" codeValue="{{dataqrcode.trim()}}"/>
</MINIPAGE>
<LAYOUTNODE name="LayoutNode44" rtl:condition="muestraQR==1" width="min" length="min" floatingBehavior="enclosed">
<WORDBOX name="WordBox108" floatingBehavior="enclosed" text="{{&quot;Codigo de Seguridad:&quot;+xhash.trim()}}"/>
<WORDBOX name="WordBox107" floatingBehavior="enclosed" text="{{&quot;Fecha de Firma Digital: &quot;+chfechafirmadigital.trim()}}"/>
</LAYOUTNODE>
</LAYOUTNODE>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
+9 -1
View File
@@ -937,6 +937,8 @@
<File filePath="vedir/vefmwd102.per"/>
</Library>
<Library binaryName="FUNCIONES_VE" dependencies="-1026233879" id="-1093277845" label="FUNCIONES_VE">
<File filePath="vedir/codigoncf.4gl"/>
<File filePath="otrodir/formaspago.4gl"/>
<File filePath="vedir/vefumt001.4gl"/>
<File filePath="vedir/veprgb000.4gl"/>
</Library>
@@ -956,9 +958,15 @@
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="684926648" label="Configuration"/>
<File filePath="vedir/veprmt025.4gl"/>
</Application>
<Application binaryName="veprmt001" dependencies="-1093277845,-1026233879,-764824792" id="200550882" label="veprmt001">
<Application binaryName="veprmt001" dependencies="-1093277845,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="200550882" label="veprmt001">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1427917002" label="Configuration"/>
<File filePath="vedir/veprmt001.4gl"/>
<File filePath="otrodir/buscarnc.4gl"/>
<File filePath="vedir/veconduce.4gl"/>
<File filePath="vedir/vecontroexistencia.4gl"/>
<File compilerOptions="--build-rdd" filePath="vedir/vefactura.4gl"/>
<File filePath="bin/veprmt022.4rp"/>
<File filePath="otrodir/verifica_cantidad.4gl"/>
</Application>
<Application binaryName="veprmt024" dependencies="-1093277845,-1026233879,-764824792" id="773751002" label="veprmt024">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1651668050" label="Configuration"/>