Compare commits
24
Commits
f140ab917e
...
main
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
79eff57d70 | ||
|
|
9ac3f70a13 | ||
|
|
972f2f1f47 | ||
|
|
d43f2729bd | ||
|
|
987c2c1122 | ||
|
|
e414e52523 | ||
|
|
a3e88776a9 | ||
|
|
9e70c46451 | ||
|
|
adf5224440 | ||
|
|
888a36553e | ||
|
|
97ef961e13 | ||
|
|
77e844390e | ||
|
|
81182e5ded | ||
|
|
60e392c033 | ||
|
|
367f0c4340 | ||
|
|
43aa1c809d | ||
|
|
b6085d4140 | ||
|
|
affc09c3e8 | ||
|
|
4532d51e4b | ||
|
|
ee27da0669 | ||
|
|
b27b20d42d | ||
|
|
382ec5cd35 | ||
|
|
4cb8d4c71b | ||
|
|
f216a7acfa |
File diff suppressed because one or more lines are too long
@@ -1619,6 +1619,9 @@ FUNCTION desplegar()
|
||||
IF acc_per.estado_civil = "C" THEN
|
||||
LET estado = "CASADO"
|
||||
END IF
|
||||
IF acc_per.estado_civil = "U" THEN
|
||||
LET estado = "UNION LIBRE"
|
||||
END IF
|
||||
|
||||
IF acc_per.sexo = "M" THEN
|
||||
LET tipo_sexo = "MASCULINO"
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,57 @@
|
||||
<?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="tabloidlength" RWPageLength="tabloidwidth" 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="../indir/inprrp028.rdd" RWFglReportName="prt_exist"/>
|
||||
<report:Conflicts/>
|
||||
<rtl:stylesheet>
|
||||
<PXML>
|
||||
<rtl:match name="Report" nameConstraint="Report">
|
||||
<MINIPAGE name="MiniPage1" width="max" length="max" fontName="Arial" fontSize="8">
|
||||
<LAYOUTNODE name="HeaderNode" width="min" length="min" swapX="true" port="anyPageHeader">
|
||||
<MINIPAGE name="HeaderStripe" width="min" length="max" alignment="center" layoutDirection="topToBottom">
|
||||
<WORDBOX name="WB1" alignment="baseline" fontBold="true" fontSize="12" text="MARMOTECH, S. A."/>
|
||||
<WORDBOX name="WB2" alignment="baseline" text="Sistema de Inventario de Materia Prima"/>
|
||||
<WORDBOX name="WB3" alignment="baseline" fontBold="true" text="Existencia con Entrada y Salida"/>
|
||||
</MINIPAGE>
|
||||
<LAYOUTNODE name="ColHeader" width="max" length="min" bgColor="#cccccc" fontBold="true" layoutDirection="leftToRight">
|
||||
<WORDBOX name="WBc1" width="3cm" alignment="baseline" text="Codigo"/>
|
||||
<WORDWRAPBOX name="WBc2" width="6cm" alignment="baseline" text="Descripcion"/>
|
||||
<WORDBOX name="WBc3" width="1.5cm" alignment="baseline" text="Unidad"/>
|
||||
<WORDBOX name="WBc4" width="2.5cm" alignment="baseline" textAlignment="right" text="Existencia Ant."/>
|
||||
<WORDBOX name="WBc5" width="2.5cm" alignment="baseline" textAlignment="right" text="Entradas"/>
|
||||
<WORDBOX name="WBc6" width="2.5cm" alignment="baseline" textAlignment="right" text="Salidas"/>
|
||||
<WORDBOX name="WBc7" width="2.5cm" alignment="baseline" textAlignment="right" text="Existencia Act."/>
|
||||
</LAYOUTNODE>
|
||||
</LAYOUTNODE>
|
||||
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
|
||||
<LAYOUTNODE name="RowNode" width="max" length="min" layoutDirection="leftToRight">
|
||||
<rtl:input-variable name="x.cod_n" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="x.cod_grupo" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="x.cod_tipo" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="x.cod_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WBcodigo" width="3cm" alignment="baseline" text="{{x.cod_n.format("&")+"-"+x.cod_grupo.format("&")+"-"+x.cod_tipo.format("&&")+"-"+x.cod_sec.format("&&&")}}"/>
|
||||
<rtl:input-variable name="x.descrip_esp" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDWRAPBOX name="WBdesc" width="6cm" alignment="baseline" text="{{x.descrip_esp.trim()}}"/>
|
||||
<rtl:input-variable name="x.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WBund" width="1.5cm" alignment="baseline" text="{{x.unidad_med.trim()}}"/>
|
||||
<rtl:input-variable name="x.existe_ant" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="WBant" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&&" value="{{x.existe_ant}}"/>
|
||||
<rtl:input-variable name="entradas" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="WBent" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&&" value="{{entradas}}"/>
|
||||
<rtl:input-variable name="salidas" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="WBsal" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&&" value="{{salidas}}"/>
|
||||
<rtl:input-variable name="x.existe_act" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="WBact" width="2.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---.&&" value="{{x.existe_act}}"/>
|
||||
</LAYOUTNODE>
|
||||
</rtl:match>
|
||||
</MINIPAGE>
|
||||
</rtl:match>
|
||||
</PXML>
|
||||
</rtl:stylesheet>
|
||||
</report:Report>
|
||||
@@ -0,0 +1,120 @@
|
||||
<?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="3140a" version="6.00">
|
||||
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
|
||||
<report:FormatList>
|
||||
<report:Format-SVG/>
|
||||
<report:Format-PDF/>
|
||||
<report:Format-image/>
|
||||
</report:FormatList>
|
||||
</report:Settings>
|
||||
<report:Data RWDataLocation="../ipdir/imprequisiciones.rdd" RWFglReportName="requiere"/>
|
||||
<report:Conflicts>
|
||||
<report:Conflict nodeName="despiece" message="Node was in trigger "AfterGroup codigo", but trigger was removed during schema update"/>
|
||||
<report:Conflict nodeName="detalledespiece" message="Node was in trigger "AfterGroup codigo", but trigger was removed during schema update"/>
|
||||
<report:Conflict nodeName="totaldespiece" message="Node was in trigger "AfterGroup codigo", but trigger was removed during schema update"/>
|
||||
</report:Conflicts>
|
||||
<rtl:stylesheet>
|
||||
<PXML>
|
||||
<rtl:match name="Report" nameConstraint="Report" minOccurs="1" maxOccurs="1">
|
||||
<MINIPAGE name="Page Root" width="max" length="max">
|
||||
<LAYOUTNODE name="encabezado" width="min" length="max" alignment="center" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed">
|
||||
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedAhead"/>
|
||||
<WORDBOX name="WordBox1" width="max-2cm" floatingBehavior="enclosed" textAlignment="center" text="{{p_companias.nombre}}"/>
|
||||
<WORDBOX name="WordBox" floatingBehavior="enclosed" text="Pagina:"/>
|
||||
<PAGENOBOX name="PageNoBox" floatingBehavior="enclosed"/>
|
||||
</LAYOUTNODE>
|
||||
<LAYOUTNODE name="encabezado2" width="min" length="max" layoutDirection="leftToRight" floatingBehavior="enclosed">
|
||||
<WORDBOX name="WordBox2" width="max-2cm" fontBold="true" floatingBehavior="enclosed" textAlignment="center" text="REQUISICION DOCUMENTOS"/>
|
||||
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
|
||||
<WORDBOX name="WordBox3" floatingBehavior="enclosed" text="{{hora}}"/>
|
||||
</LAYOUTNODE>
|
||||
<LAYOUTNODE name="encabezadomaster" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
|
||||
<LAYOUTNODE name="LayoutNode1" width="3inch" length="min" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
|
||||
<rtl:input-variable name="nombreUsuario" type="FGLString" expectedLocation="expectedWayAhead"/>
|
||||
<WORDBOX name="WordBox4" length="1cm" floatingBehavior="enclosed" text="{{"USUARIO: "+nombreUsuario.trim()}}"/>
|
||||
<rtl:input-variable name="p_iptb57.numero_doc" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
|
||||
<WORDBOX name="WordBox5" fontSize="12" fontBold="true" floatingBehavior="enclosed" text="{{"DOCUMENTO: "+p_iptb57.numero_doc.format("&&&&&&&")}}"/>
|
||||
<rtl:input-variable name="p_iptb57.cod_mov" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
|
||||
<rtl:input-variable name="nombreMov" type="FGLString" expectedLocation="expectedWayAhead"/>
|
||||
<WORDWRAPBOX name="WordWrapBox" width="width("M")*27" alignment="baseline" floatingBehavior="enclosed" text="{{"TIPO DOCUMENTO: "+"("+p_iptb57.cod_mov.format("<<<")+")"+nombreMov.trim()}}"/>
|
||||
<rtl:input-variable name="p_iptb57.fecha" type="FGLString" expectedLocation="expectedWayAhead"/>
|
||||
<WORDBOX name="WordBox6" floatingBehavior="enclosed" text="{{"FECHA: "+p_iptb57.fecha}}"/>
|
||||
<rtl:input-variable name="nombreBodega" type="FGLString" expectedLocation="expectedWayAhead"/>
|
||||
<WORDBOX name="WordBox8" floatingBehavior="enclosed" text="{{"BODEGA: "+nombreBodega}}"/>
|
||||
</LAYOUTNODE>
|
||||
<LAYOUTNODE name="LayoutNode2" width="3inch" length="min" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
|
||||
<WORDBOX name="WordBox12" length="1cm" alignment="baseline" floatingBehavior="enclosed"/>
|
||||
<rtl:input-variable name="p_iptb57.bodega_destino" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
|
||||
<rtl:input-variable name="nombreBodegaDestino" type="FGLString" expectedLocation="expectedWayAhead"/>
|
||||
<WORDBOX name="WordBox9" floatingBehavior="enclosed" text="{{"BODEGA DESTINO: "+"("+p_iptb57.bodega_destino+")"+nombreBodegaDestino}}"/>
|
||||
<rtl:input-variable name="p_iptb57.num_oc" type="FGLNumeric" expectedLocation="expectedWayAhead"/>
|
||||
<WORDBOX name="WordBox10" floatingBehavior="enclosed" text="{{"NUMERO ORDEN:"+p_iptb57.num_oc.format("&&&&&&&&")}}"/>
|
||||
<rtl:input-variable name="p_iptb57.cliente" type="FGLString" expectedLocation="expectedWayAhead"/>
|
||||
<WORDWRAPBOX name="WordWrapBox1" width="width("M")*27" floatingBehavior="enclosed" text="{{"CLIENTE: "+p_iptb57.cliente}}"/>
|
||||
<rtl:input-variable name="p_iptb57.observacion" type="FGLString" expectedLocation="expectedWayAhead"/>
|
||||
<WORDWRAPBOX name="WordWrapBox2" width="width("M")*20" floatingBehavior="enclosed" text="{{"OBSERVACION: "+p_iptb57.observacion.trim()}}"/>
|
||||
</LAYOUTNODE>
|
||||
</LAYOUTNODE>
|
||||
<LAYOUTNODE name="encabezadodetalle" width="min" length="min" fontSize="8" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
|
||||
<WORDBOX name="WordBox13" width="3.5inch" floatingBehavior="enclosed" text="ITEM(S)" roundedCorners="false" borderWidth="1"/>
|
||||
<WORDBOX name="WordBox14" width="2.2inch" floatingBehavior="enclosed" textAlignment="right" text="UNIDAD"/>
|
||||
<WORDBOX name="WordBox15" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="CANTIDAD"/>
|
||||
</LAYOUTNODE>
|
||||
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1"/>
|
||||
<rtl:match name="Group codigo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
|
||||
<MINIPAGE name="table" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
|
||||
<rtl:input-variable name="detalle.cod_n" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="detalle.cod_grupo" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="detalle.cod_tipo" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="detalle.cod_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="detalle.descripcion" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="detalle.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDWRAPBOX name="WordWrapBox3" width="width("M")*30" length="min" alignment="baseline" floatingBehavior="enclosed" text="{{detalle.cod_n.format("&&&&")+"-"+detalle.cod_grupo.format("&&&&")+"-"+detalle.cod_tipo.format("&&&&&&")+"-"+detalle.cod_sec.format("&&&&&&&&")+" "+detalle.descripcion.trim()+" "+detalle.unidad_med}}"/>
|
||||
<rtl:input-variable name="detalle.cantidad_1" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox17" width="2.4inch" floatingBehavior="enclosed" textAlignment="right" text="{{detalle.cantidad_1.format("###,###.#####")}}"/>
|
||||
<rtl:input-variable name="detalle.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox18" width="1.5inch" floatingBehavior="enclosed" textAlignment="right" text="{{detalle.cantidad.format("###,###.#####")}}"/>
|
||||
</MINIPAGE>
|
||||
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedAhead"/>
|
||||
<LAYOUTNODE name="despiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="topToBottom" floatingBehavior="enclosed">
|
||||
<WORDBOX name="WordBox20" width="max" floatingBehavior="enclosed" textAlignment="center" text="DESPIECE" roundedCorners="true" borderWidth="1" borderStyle="solid"/>
|
||||
<LAYOUTNODE name="encabezadodespiece" width="min" length="max" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
|
||||
<WORDBOX name="WordBox24" width="1.5inch" floatingBehavior="enclosed" text="Etiquetas"/>
|
||||
<WORDBOX name="WordBox26" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 1"/>
|
||||
<WORDBOX name="WordBox27" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 2"/>
|
||||
<WORDBOX name="WordBox28" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 3"/>
|
||||
<WORDBOX name="WordBox29" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Unidades"/>
|
||||
<WORDBOX name="WordBox30" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Medida"/>
|
||||
</LAYOUTNODE>
|
||||
</LAYOUTNODE>
|
||||
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
|
||||
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<LAYOUTNODE name="detalledespiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
|
||||
<rtl:input-variable name="etiqueta" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDWRAPBOX name="etiqueta Value" class="grwStringValue" width="width("M")*15" alignment="baseline" floatingBehavior="enclosed" text="{{etiqueta}}"/>
|
||||
<rtl:input-variable name="xdespiece.lado_1" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="despiece.lado_1 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&.&&" value="{{xdespiece.lado_1}}"/>
|
||||
<rtl:input-variable name="xdespiece.lado_2" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="despiece.lado_2 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&.&&" value="{{xdespiece.lado_2}}"/>
|
||||
<rtl:input-variable name="xdespiece.lado_3" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="despiece.lado_3 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&.&&" value="{{xdespiece.lado_3}}"/>
|
||||
<rtl:input-variable name="xdespiece.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="despiece.cantidad Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&.&&" value="{{xdespiece.cantidad}}"/>
|
||||
<rtl:input-variable name="xdespiece.medida" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="despiece.medida Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&.&&" value="{{xdespiece.medida}}"/>
|
||||
</LAYOUTNODE>
|
||||
</rtl:match>
|
||||
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedBefore"/>
|
||||
<LAYOUTNODE name="totaldespiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
|
||||
<WORDBOX name="WordBox21" width="4.8inch" floatingBehavior="enclosed" text="TOTALES"/>
|
||||
<rtl:input-variable name="total_cantidad" type="FGLNumeric" expectedLocation="expectedBefore"/>
|
||||
<WORDBOX name="WordBox22" width="1inch" floatingBehavior="enclosed" text="{{total_cantidad.format("##,###.#####")}}"/>
|
||||
<rtl:input-variable name="total_medida" type="FGLNumeric" expectedLocation="expectedBefore"/>
|
||||
<WORDBOX name="WordBox23" width="1inch" floatingBehavior="enclosed" text="{{total_medida.format("##,###.######")}}"/>
|
||||
</LAYOUTNODE>
|
||||
</rtl:match>
|
||||
</MINIPAGE>
|
||||
</rtl:match>
|
||||
</PXML>
|
||||
</rtl:stylesheet>
|
||||
</report:Report>
|
||||
@@ -0,0 +1,126 @@
|
||||
<?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="3140a" version="6.00">
|
||||
<report:Settings RWPageWidth="letterwidth" RWPageLength="letterlength" RWLeftMargin="0.5inch" RWTopMargin="0.5inch" RWRightMargin="0.5inch" RWBottomMargin="0.5inch">
|
||||
<report:FormatList>
|
||||
<report:Format-SVG/>
|
||||
<report:Format-PDF/>
|
||||
<report:Format-image/>
|
||||
</report:FormatList>
|
||||
</report:Settings>
|
||||
<report:Data RWDataLocation="../ipdir/ipautorizareq.rdd" RWFglReportName="requiereAutoriza"/>
|
||||
<report:Conflicts>
|
||||
<report:Conflict nodeName="encabezado" message="Node was in trigger "FirstPageHeader [0; 1]", but trigger was removed during schema update"/>
|
||||
<report:Conflict nodeName="encabezado2" message="Node was in trigger "FirstPageHeader [0; 1]", but trigger was removed during schema update"/>
|
||||
<report:Conflict nodeName="encabezadomaster" message="Node was in trigger "FirstPageHeader [0; 1]", but trigger was removed during schema update"/>
|
||||
<report:Conflict nodeName="encabezadodetalle" message="Node was in trigger "FirstPageHeader [0; 1]", but trigger was removed during schema update"/>
|
||||
<report:Conflict nodeName="despiece" message="Node was in trigger "AfterGroup codigo", but trigger was removed during schema update"/>
|
||||
<report:Conflict nodeName="detalledespiece" message="Node was in trigger "AfterGroup codigo", but trigger was removed during schema update"/>
|
||||
<report:Conflict nodeName="totaldespiece" message="Node was in trigger "AfterGroup codigo", but trigger was removed during schema update"/>
|
||||
</report:Conflicts>
|
||||
<rtl:stylesheet>
|
||||
<PXML>
|
||||
<rtl:match name="Report" nameConstraint="Report" minOccurs="1" maxOccurs="1">
|
||||
<MINIPAGE name="Page Root" width="max" length="max">
|
||||
<rtl:match name="FirstPageHeader" nameConstraint="FirstPageHeader" minOccurs="0" maxOccurs="1">
|
||||
<LAYOUTNODE name="encabezado" width="min" length="max" alignment="center" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed">
|
||||
<rtl:input-variable name="p_companias.nombre" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox1" width="max-2cm" floatingBehavior="enclosed" textAlignment="center" text="{{p_companias.nombre}}"/>
|
||||
<WORDBOX name="WordBox" floatingBehavior="enclosed" text="Pagina:"/>
|
||||
<PAGENOBOX name="PageNoBox" floatingBehavior="enclosed"/>
|
||||
</LAYOUTNODE>
|
||||
<LAYOUTNODE name="encabezado2" width="min" length="max" layoutDirection="leftToRight" floatingBehavior="enclosed">
|
||||
<WORDBOX name="WordBox2" width="max-2cm" fontBold="true" floatingBehavior="enclosed" textAlignment="center" text="REQUISICION DOCUMENTOS"/>
|
||||
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox3" floatingBehavior="enclosed" text="{{hora}}"/>
|
||||
</LAYOUTNODE>
|
||||
<LAYOUTNODE name="encabezadomaster" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
|
||||
<LAYOUTNODE name="LayoutNode1" width="3inch" length="min" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
|
||||
<rtl:input-variable name="nombreusuario" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox4" length="1cm" floatingBehavior="enclosed" text="{{"USUARIO: "+nombreusuario.trim()}}"/>
|
||||
<rtl:input-variable name="x.numero_doc" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox5" fontSize="12" fontBold="true" floatingBehavior="enclosed" text="{{"DOCUMENTO: "+x.numero_doc.format("&&&&&&&")}}"/>
|
||||
<rtl:input-variable name="x.cod_mov" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="nombreMov" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDWRAPBOX name="WordWrapBox" width="width("M")*27" alignment="baseline" floatingBehavior="enclosed" text="{{"TIPO DOCUMENTO: "+"("+x.cod_mov.format("<<<")+")"+nombreMov.trim()}}"/>
|
||||
<rtl:input-variable name="x.fecha" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox6" floatingBehavior="enclosed" text="{{"FECHA: "+x.fecha}}"/>
|
||||
<rtl:input-variable name="nombreBodega" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox8" floatingBehavior="enclosed" text="{{"BODEGA: "+nombreBodega}}"/>
|
||||
</LAYOUTNODE>
|
||||
<LAYOUTNODE name="LayoutNode2" width="3inch" length="min" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
|
||||
<WORDBOX name="WordBox12" length="1cm" alignment="baseline" floatingBehavior="enclosed"/>
|
||||
<rtl:input-variable name="nombreBodegaDestino" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox9" floatingBehavior="enclosed" text="{{"BODEGA DESTINO: "+nombreBodegaDestino}}"/>
|
||||
<rtl:input-variable name="x.num_oc" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox10" floatingBehavior="enclosed" text="{{"NUMERO ORDEN:"+x.num_oc.format("&&&&&&&&")}}"/>
|
||||
<rtl:input-variable name="vendedor" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDWRAPBOX name="vendedor Value" class="grwStringValue" width="width("M")*25" alignment="baseline" floatingBehavior="enclosed" text="{{"VENDEDOR: "+vendedor.trim()}}"/>
|
||||
<rtl:input-variable name="x.cliente" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDWRAPBOX name="WordWrapBox1" width="width("M")*27" floatingBehavior="enclosed" text="{{"CLIENTE: "+x.cliente}}"/>
|
||||
<rtl:input-variable name="x.observacion" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDWRAPBOX name="WordWrapBox2" width="width("M")*20" floatingBehavior="enclosed" text="{{"OBSERVACION: "+x.observacion.trim()}}"/>
|
||||
</LAYOUTNODE>
|
||||
</LAYOUTNODE>
|
||||
<LAYOUTNODE name="encabezadodetalle" width="min" length="min" fontSize="8" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
|
||||
<WORDBOX name="WordBox13" width="3.5inch" floatingBehavior="enclosed" text="ITEM(S)" roundedCorners="false" borderWidth="1"/>
|
||||
<WORDBOX name="WordBox14" width="2.2inch" floatingBehavior="enclosed" textAlignment="right" text="UNIDAD"/>
|
||||
<WORDBOX name="WordBox15" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="CANTIDAD"/>
|
||||
</LAYOUTNODE>
|
||||
</rtl:match>
|
||||
<rtl:match name="Group codigo" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
|
||||
<MINIPAGE name="table" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
|
||||
<rtl:input-variable name="detalle.cod_n" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="detalle.cod_grupo" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="detalle.cod_tipo" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="detalle.cod_sec" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="detalle.descripcion" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<rtl:input-variable name="detalle.unidad_med" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDWRAPBOX name="WordWrapBox3" width="width("M")*30" length="min" alignment="baseline" floatingBehavior="enclosed" text="{{detalle.cod_n.format("&&&&")+"-"+detalle.cod_grupo.format("&&&&")+"-"+detalle.cod_tipo.format("&&&&&&")+"-"+detalle.cod_sec.format("&&&&&&&&")+" "+detalle.descripcion.trim()+" "+detalle.unidad_med}}"/>
|
||||
<rtl:input-variable name="detalle.cantidad_1" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox17" width="2.4inch" floatingBehavior="enclosed" textAlignment="right" text="{{detalle.cantidad_1.format("###,###.#####")}}"/>
|
||||
<rtl:input-variable name="detalle.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<WORDBOX name="WordBox18" width="1.5inch" floatingBehavior="enclosed" textAlignment="right" text="{{detalle.cantidad.format("###,###.#####")}}"/>
|
||||
</MINIPAGE>
|
||||
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedAhead"/>
|
||||
<LAYOUTNODE name="despiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="topToBottom" floatingBehavior="enclosed">
|
||||
<WORDBOX name="WordBox20" width="max" floatingBehavior="enclosed" textAlignment="center" text="DESPIECE" roundedCorners="true" borderWidth="1" borderStyle="solid"/>
|
||||
<LAYOUTNODE name="encabezadodespiece" width="min" length="max" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
|
||||
<WORDBOX name="WordBox24" width="1.5inch" floatingBehavior="enclosed" text="Etiquetas"/>
|
||||
<WORDBOX name="WordBox26" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 1"/>
|
||||
<WORDBOX name="WordBox27" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 2"/>
|
||||
<WORDBOX name="WordBox28" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Lado 3"/>
|
||||
<WORDBOX name="WordBox29" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Unidades"/>
|
||||
<WORDBOX name="WordBox30" width="1inch" floatingBehavior="enclosed" textAlignment="right" text="Medida"/>
|
||||
</LAYOUTNODE>
|
||||
</LAYOUTNODE>
|
||||
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
|
||||
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<LAYOUTNODE name="detalledespiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
|
||||
<rtl:input-variable name="etiqueta" type="FGLString" expectedLocation="expectedHere"/>
|
||||
<WORDWRAPBOX name="etiqueta Value" class="grwStringValue" width="width("M")*15" alignment="baseline" floatingBehavior="enclosed" text="{{etiqueta}}"/>
|
||||
<rtl:input-variable name="xdespiece.lado_1" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="despiece.lado_1 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&.&&" value="{{xdespiece.lado_1}}"/>
|
||||
<rtl:input-variable name="xdespiece.lado_2" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="despiece.lado_2 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&.&&" value="{{xdespiece.lado_2}}"/>
|
||||
<rtl:input-variable name="xdespiece.lado_3" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="despiece.lado_3 Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&.&&" value="{{xdespiece.lado_3}}"/>
|
||||
<rtl:input-variable name="xdespiece.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="despiece.cantidad Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&.&&" value="{{xdespiece.cantidad}}"/>
|
||||
<rtl:input-variable name="xdespiece.medida" type="FGLNumeric" expectedLocation="expectedHere"/>
|
||||
<DECIMALFORMATBOX name="despiece.medida Value" class="grwNumericValue" width="1inch" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&.&&" value="{{xdespiece.medida}}"/>
|
||||
</LAYOUTNODE>
|
||||
</rtl:match>
|
||||
<rtl:input-variable name="tienedespiece" type="FGLNumeric" expectedLocation="expectedBefore"/>
|
||||
<LAYOUTNODE name="totaldespiece" rtl:condition="tienedespiece==1" width="min" length="min" fontSize="8" layoutDirection="leftToRight" floatingBehavior="enclosed">
|
||||
<WORDBOX name="WordBox21" width="4.8inch" floatingBehavior="enclosed" text="TOTALES"/>
|
||||
<rtl:input-variable name="total_cantidad" type="FGLNumeric" expectedLocation="expectedBefore"/>
|
||||
<WORDBOX name="WordBox22" width="1inch" floatingBehavior="enclosed" text="{{total_cantidad.format("##,###.#####")}}"/>
|
||||
<rtl:input-variable name="total_medida" type="FGLNumeric" expectedLocation="expectedBefore"/>
|
||||
<WORDBOX name="WordBox23" width="1inch" floatingBehavior="enclosed" text="{{total_medida.format("##,###.######")}}"/>
|
||||
</LAYOUTNODE>
|
||||
</rtl:match>
|
||||
</MINIPAGE>
|
||||
</rtl:match>
|
||||
</PXML>
|
||||
</rtl:stylesheet>
|
||||
</report:Report>
|
||||
@@ -38,9 +38,11 @@ FUNCTION coprrp007()
|
||||
uso VARCHAR(100),
|
||||
descrip_esp VARCHAR(100),
|
||||
unidad_med LIKE intb00001.unidad_med
|
||||
|
||||
|
||||
END RECORD
|
||||
|
||||
DEFINE r_filename STRING
|
||||
|
||||
# WHENEVER ERROR CONTINUE
|
||||
|
||||
OPTIONS
|
||||
@@ -161,9 +163,14 @@ LET idx = 1
|
||||
RETURN
|
||||
END IF
|
||||
IF idx = 1 THEN
|
||||
|
||||
CALL seleccionarsalida() RETURNING salida
|
||||
CALL configureoutput(salida) RETURNING HANDLER
|
||||
|
||||
-- La API de configuracion de reportes (fgl_report_*) no esta
|
||||
-- disponible en este FGL; seleccionarsalida()/configureoutput()
|
||||
-- tampoco estan definidas en este programa. Se escribe el XML
|
||||
-- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
|
||||
-- .4rp con vista previa.
|
||||
LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp007_organiza.xml"
|
||||
LET handler = om.XmlWriter.createFileWriter(r_filename)
|
||||
START REPORT organiza TO XML HANDLER handler
|
||||
|
||||
END IF
|
||||
|
||||
@@ -3,7 +3,10 @@ DEFINE pdepartamento ui.combobox,
|
||||
kdepartamento SMALLINT,kdescripcion CHAR(30)
|
||||
|
||||
LET pdepartamento = ui.combobox.forname("formonly.departamento")
|
||||
CALL pdepartamento.clear()
|
||||
IF pdepartamento IS NULL THEN
|
||||
RETURN
|
||||
END IF
|
||||
CALL pdepartamento.clear()
|
||||
DECLARE pagar CURSOR FOR
|
||||
SELECT departamento, nom_dpto FROM adtb00001
|
||||
WHERE status_t is null
|
||||
|
||||
@@ -199,6 +199,9 @@ adtb00003^sexo^0^10^67^
|
||||
adtb00003^email_corporativo^201^100^68^
|
||||
adtb00003^enviar_encuesta^0^10^69^
|
||||
adtb00003^enviar_volante^0^10^70^
|
||||
adtb00003^telefonoCorporativo^0^15^71^
|
||||
adtb00003^numeroOficina^0^15^72^
|
||||
adtb00003^extension^0^5^73^
|
||||
adtb00004^cod_puesto^1^2^1^
|
||||
adtb00004^nom_puesto^0^180^2^
|
||||
adtb00004^otra_descripcion^0^180^3^
|
||||
|
||||
+3192
-994
File diff suppressed because it is too large
Load Diff
+8320
-835
File diff suppressed because it is too large
Load Diff
+36
-11
@@ -167,22 +167,47 @@ END FUNCTION
|
||||
|
||||
FUNCTION configureOutput(tipo_file)
|
||||
DEFINE tipo_file CHAR(3)
|
||||
-- La API fgl_report_* (Report Writer 2.0) no esta disponible en este
|
||||
-- FGL 6.00.01. Esta salida (XML/XLS/PDF por handler) no esta soportada
|
||||
-- en este entorno; usar r_output = 'MA' (impresion clasica) en su lugar.
|
||||
IF NOT fgl_report_loadCurrentSettings(NULL) THEN
|
||||
RETURN NULL
|
||||
END IF
|
||||
CALL fgl_report_setPageMargins("0.5cm", "0.5cm", "0.5cm", "0.5cm")
|
||||
CALL fgl_report_configureCompatibilityOutput(160,"Monospaced",NULL,NULL,NULL,NULL)
|
||||
CALL fgl_report_selectDevice(tipo_file)
|
||||
CALL fgl_report_configurexlsxdevice(NULL, NULL, NULL, FALSE, FALSE, NULL, 1)
|
||||
CALL fgl_report_selectPreview(TRUE)
|
||||
RETURN fgl_report_commitCurrentSettings()
|
||||
|
||||
RETURN NULL
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION selectOutput()
|
||||
-- El formulario "Configuration" del Report Writer 2.0 no esta disponible
|
||||
-- en este entorno (ver configureOutput). Se devuelve un valor fijo para
|
||||
-- que el flujo de "Reporte Grafico" siga y falle de forma consistente
|
||||
-- con la limitacion ya conocida; usar MATRICIAL en su lugar.
|
||||
RETURN "PDF"
|
||||
DEFINE
|
||||
r_output STRING,
|
||||
r_action STRING,
|
||||
preview INTEGER
|
||||
|
||||
OPTIONS INPUT WRAP
|
||||
OPEN WINDOW f_configuration WITH FORM "Configuration"
|
||||
LET INT_FLAG=FALSE
|
||||
LET preview = FALSE
|
||||
INPUT BY NAME r_output
|
||||
ON ACTION CANCEL
|
||||
EXIT PROGRAM
|
||||
ON ACTION CLOSE
|
||||
EXIT PROGRAM
|
||||
END INPUT
|
||||
CLOSE WINDOW f_configuration
|
||||
CALL ui.interface.refresh()
|
||||
|
||||
IF r_action IS NOT NULL THEN
|
||||
IF r_action == "preview" THEN
|
||||
LET preview = TRUE
|
||||
END IF
|
||||
END IF
|
||||
|
||||
RETURN r_output
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION seleccionarSalida()
|
||||
-- Mismo caso que selectOutput(): el formulario "Configuration" del
|
||||
-- Report Writer 2.0 no esta disponible en este entorno; usar MATRICIAL.
|
||||
RETURN "PDF"
|
||||
RETURN selectOutput()
|
||||
END FUNCTION
|
||||
|
||||
@@ -159,14 +159,11 @@ LET selec =
|
||||
|
||||
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
|
||||
AT 19,14 ATTRIBUTE (REVERSE)
|
||||
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
|
||||
doble_on,doble_off,comp_on,comp_off,
|
||||
doce,normal,archivo,copia
|
||||
LET opt1 = "yes"
|
||||
CALL seleccionarsalida() RETURNING r_output
|
||||
CALL configureoutput(r_output) RETURNING handler
|
||||
START REPORT opera TO XML HANDLER HANDLER
|
||||
|
||||
CALL seleccionarsalida() RETURNING r_output
|
||||
CALL configureoutput(r_output) RETURNING handler
|
||||
START REPORT opera TO XML HANDLER HANDLER
|
||||
|
||||
PREPARE busca_p FROM selec
|
||||
DECLARE periodo SCROLL CURSOR FOR busca_p
|
||||
OPEN periodo using ano_act,datos_cons.fech_in,datos_cons.fech_fi
|
||||
@@ -185,6 +182,9 @@ LET selec =
|
||||
FINISH REPORT opera
|
||||
CLEAR SCREEN
|
||||
|
||||
IF opt1 <> "yes" THEN
|
||||
RUN imprime
|
||||
END IF
|
||||
END FUNCTION
|
||||
|
||||
REPORT opera(x)
|
||||
|
||||
@@ -184,7 +184,7 @@ LET select_ant =
|
||||
|
||||
IF opt1 = "yes" THEN
|
||||
CALL seleccionarsalida() RETURNING r_output
|
||||
CALL configureoutput(r_output) RETURNING HANDLER
|
||||
CALL configureOutputRp028(r_output) RETURNING HANDLER
|
||||
START REPORT prt_exist TO XML HANDLER handler
|
||||
ELSE
|
||||
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
|
||||
@@ -438,3 +438,17 @@ END FUNCTION
|
||||
PRINT COLUMN 4, ASCII 27, ASCII 80
|
||||
END REPORT
|
||||
|
||||
FUNCTION configureOutputRp028(tipo_file)
|
||||
DEFINE tipo_file CHAR(3)
|
||||
IF NOT fgl_report_loadCurrentSettings("inprrp028.4rp") THEN
|
||||
RETURN NULL
|
||||
END IF
|
||||
CALL fgl_report_setPageMargins("0.5cm", "0.5cm", "0.5cm", "0.5cm")
|
||||
CALL fgl_report_selectDevice(tipo_file)
|
||||
CALL fgl_report_configurexlsxdevice(NULL, NULL, NULL, FALSE, FALSE, NULL, 1)
|
||||
CALL fgl_report_selectPreview(TRUE)
|
||||
RETURN fgl_report_commitCurrentSettings()
|
||||
|
||||
RETURN NULL
|
||||
END FUNCTION
|
||||
|
||||
|
||||
-3213
File diff suppressed because it is too large
Load Diff
@@ -4,10 +4,10 @@ FUNCTION buscadoc(numid,codmov)
|
||||
DEFINE numid,codmov INT
|
||||
|
||||
SELECT a.numero_Doc,a.cod_mov,a.fecha,a.num_oc,a.tipo_cliente,a.sec_cliente,a.nombre,a.bodega,a.bodega_destino,
|
||||
a.estado,a.url_destino,b.descripcion,a.observacion
|
||||
a.estado,a.url_destino,b.descripcion,a.observacion,a.us_crea
|
||||
INTO p_iptb57.numero_doc,p_iptb57.cod_mov,p_iptb57.fecha,p_iptb57.num_oc,p_iptb57.tipo_cliente,p_iptb57.sec_cliente,
|
||||
p_iptb57.cliente,p_iptb57.bodega,p_iptb57.bodega_destino,p_iptb57.estado,
|
||||
p_iptb57.url_file,p_iptb57.observacion
|
||||
p_iptb57.url_file,p_iptb57.idstado,p_iptb57.observacion,p_iptb57.us_crea
|
||||
FROM iptb00057 a, iptb00061 b
|
||||
WHERE a.numero_doc = numid AND a.cod_mov = codmov AND
|
||||
a.idestado = b.idestado
|
||||
@@ -15,7 +15,20 @@ FUNCTION buscadoc(numid,codmov)
|
||||
#BODEGA DESTINO
|
||||
IF p_iptb57.bodega_destino IS NOT NULL THEN
|
||||
SELECT a.descripcion INTO nombreBodegaDestino FROM intb00009 a WHERE a.cod_bodega = p_iptb57.bodega_destino
|
||||
END IF
|
||||
END IF
|
||||
#BODEGA ORIGEN
|
||||
IF p_iptb57.bodega IS NOT NULL THEN
|
||||
SELECT a.descripcion INTO nombreBodega FROM intb00009 a WHERE a.cod_bodega = p_iptb57.bodega
|
||||
END IF
|
||||
#TIPO DE MOVIMIENTO
|
||||
IF p_iptb57.cod_mov IS NOT NULL THEN
|
||||
SELECT RTRIM(a.descrip_mov) || '(' || CAST(a.cod_mov AS VARCHAR(6)) || ')' INTO nombreMov
|
||||
FROM iptb00005 a WHERE a.cod_mov = p_iptb57.cod_mov
|
||||
END IF
|
||||
#USUARIO QUE CREO EL DOCUMENTO
|
||||
IF p_iptb57.us_crea IS NOT NULL THEN
|
||||
CALL usuarioSistema(p_iptb57.us_crea) RETURNING nombreUsuario,email
|
||||
END IF
|
||||
DECLARE buscardetalle CURSOR FOR
|
||||
SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descripcion,a.unidad_med,
|
||||
a.cantidad_1,a.cantidad_2,b.factor_conv,
|
||||
@@ -77,7 +77,7 @@ FUNCTION ipautorizadas(xusuario)
|
||||
END IF
|
||||
ON ACTION imprimir ATTRIBUTE(TEXT="Imprimir", IMAGE="printer")
|
||||
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
|
||||
CALL buscadoc(arr_busqueda1[arr_curr()].numeroid,arr_busqueda1[arr_curr()].cod_mov1)
|
||||
CALL buscadocAutoriza(arr_busqueda1[arr_curr()].numeroid,arr_busqueda1[arr_curr()].cod_mov1)
|
||||
LET data.rnumeroDoc = arr_busqueda1[arr_curr()].numeroid
|
||||
LET data.rcodMov = arr_busqueda1[arr_curr()].cod_mov1
|
||||
LET data.rtipo_cliente = arr_busqueda1[arr_curr()].rtipo_cliente
|
||||
@@ -88,7 +88,7 @@ FUNCTION ipautorizadas(xusuario)
|
||||
LET data.bodega_destino = arr_busqueda1[arr_curr()].bodega_destino
|
||||
LET nombreUsuario = arr_busqueda1[arr_curr()].usuario
|
||||
|
||||
CALL impdocumento()
|
||||
CALL impdocumentoAutoriza()
|
||||
END IF
|
||||
ON ACTION procesar ATTRIBUTE(TEXT="Procesa",IMAGE="")
|
||||
IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
|
||||
@@ -172,7 +172,7 @@ FUNCTION buscadataReq(pusuario)
|
||||
|
||||
END FUNCTION
|
||||
|
||||
FUNCTION buscadoc(numid,codmov)
|
||||
FUNCTION buscadocAutoriza(numid,codmov)
|
||||
DEFINE numid,codmov INT
|
||||
|
||||
LET vendedor = null
|
||||
@@ -235,7 +235,7 @@ FUNCTION buscadoc(numid,codmov)
|
||||
LET idx = idx + 1
|
||||
END FOREACH
|
||||
END FUNCTION
|
||||
FUNCTION impdocumento()
|
||||
FUNCTION impdocumentoAutoriza()
|
||||
DEFINE idx_l INT,
|
||||
xcodigo VARCHAR(50)
|
||||
LET r_filename = "ipprmt020_1.4rp"
|
||||
@@ -251,7 +251,7 @@ FUNCTION impdocumento()
|
||||
ELSE
|
||||
RETURN
|
||||
END IF
|
||||
START REPORT requiere TO XML HANDLER HANDLER
|
||||
START REPORT requiereAutoriza TO XML HANDLER HANDLER
|
||||
|
||||
FOR idx = 1 TO arr_iptb58.getLength()
|
||||
|
||||
@@ -261,15 +261,15 @@ FUNCTION impdocumento()
|
||||
arr_iptb58[idx].cod_tipo USING '&&&&&&','-',
|
||||
arr_iptb58[idx].cod_sec USING '&&&&&&&'
|
||||
|
||||
OUTPUT TO REPORT requiere(p_iptb57.*,arr_iptb58[idx].*,despiece1[idx].*, xcodigo)
|
||||
|
||||
OUTPUT TO REPORT requiereAutoriza(p_iptb57.*,arr_iptb58[idx].*,despiece1[idx].*, xcodigo)
|
||||
|
||||
END IF
|
||||
|
||||
|
||||
END FOR
|
||||
FINISH REPORT requiere
|
||||
FINISH REPORT requiereAutoriza
|
||||
END FUNCTION
|
||||
|
||||
REPORT requiere(x,detalle,xdespiece,codigo)
|
||||
REPORT requiereAutoriza(x,detalle,xdespiece,codigo)
|
||||
DEFINE hora STRING,
|
||||
detalle RECORD
|
||||
area INT,
|
||||
@@ -308,7 +308,8 @@ REPORT requiere(x,detalle,xdespiece,codigo)
|
||||
estado VARCHAR(50),
|
||||
ruta_documento ,
|
||||
url_file ,
|
||||
idestado VARCHAR(200)
|
||||
idestado VARCHAR(200),
|
||||
us_crea VARCHAR(50)
|
||||
END RECORD,
|
||||
|
||||
etiqueta VARCHAR(100),
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user