JSOTO Adicione los programas y funciones en FUNCIONES COMUNES

PROYECTO/mbsERP.4pw

@@ -83,10 +83,66 @@
       <File filePath="otrodir/mainmenuform.4fd"/>
     </Library>
     <Library binaryName="FUNCIONES" id="-764824792" label="FUNCIONES">
+      <File filePath="otrodir/ambienteFacturacion.4gl"/>
+      <File filePath="otrodir/api_test.4gl"/>
       <File filePath="otrodir/autentificacion.4gl"/>
+      <File filePath="otrodir/autorizarequisicion.4gl"/>
+      <File filePath="otrodir/bancos.4gl"/>
+      <File filePath="otrodir/bodegas.4gl"/>
+      <File filePath="otrodir/busca_balances.4gl"/>
+      <File filePath="otrodir/busca_imagen.4gl"/>
+      <File filePath="otrodir/buscaEpleados.4gl"/>
+      <File filePath="otrodir/cetiquetas.4gl"/>
+      <File filePath="otrodir/cinstalador.4gl"/>
+      <File filePath="otrodir/codigosMovimientos.4gl"/>
+      <File filePath="otrodir/comboano.4gl"/>
+      <File filePath="otrodir/combodin.4gl"/>
+      <File filePath="otrodir/combomes.4gl"/>
+      <File filePath="otrodir/comprimeImagen.4gl"/>
+      <File filePath="otrodir/controlNumericoED.4gl"/>
+      <File filePath="otrodir/cuentasBco.4gl"/>
+      <File filePath="otrodir/departamentos.4gl"/>
+      <File filePath="otrodir/deptosupervisa.4gl"/>
+      <File filePath="otrodir/detalleGastos.4gl"/>
+      <File filePath="otrodir/disponibles.4gl"/>
+      <File filePath="otrodir/entramensaje.4gl"/>
+      <File filePath="otrodir/enviacorreo.4gl"/>
+      <File filePath="otrodir/enviaencuesta.4gl"/>
+      <File filePath="otrodir/equipos.4gl"/>
+      <File filePath="otrodir/estado_requisicion.4gl"/>
+      <File filePath="otrodir/evaluaclientes.4gl"/>
+      <File filePath="otrodir/GeneraEntradaDiario.4gl"/>
+      <File filePath="otrodir/generafilexml.4gl"/>
+      <File filePath="otrodir/idinstalacion.4gl"/>
+      <File filePath="otrodir/ircodigosMovimientos.4gl"/>
+      <File filePath="otrodir/localidades.4gl"/>
+      <File filePath="otrodir/lugarentrega.4gl"/>
       <File filePath="otrodir/mensajes.4gl"/>
       <File filePath="otrodir/msg.4gl"/>
+      <File filePath="ccdir/numeroDepositos.4gl"/>
+      <File filePath="otrodir/paises.4gl"/>
+      <File filePath="otrodir/pendiente_ordenes.4gl"/>
+      <File filePath="otrodir/plataformapago.4gl"/>
+      <File filePath="otrodir/prd.4gl"/>
+      <File filePath="otrodir/procesoEncf.4gl"/>
+      <File filePath="otrodir/proveedores.4gl"/>
+      <File filePath="otrodir/requisiciondespacho.4gl"/>
       <File filePath="otrodir/seg000.4gl"/>
+      <File filePath="otrodir/sus_caracter.4gl"/>
+      <File filePath="otrodir/termo.4gl"/>
+      <File filePath="vedir/veconvierteorden.4gl"/>
+      <File filePath="otrodir/vendedores.4gl"/>
+      <File filePath="otrodir/visualiza_kit.4gl"/>
+      <File filePath="otrodir/zonas.4gl"/>
+    </Library>
+    <Library binaryName="FUNCIONESEMAIL" id="493047263" label="FUNCIONESEMAIL">
+      <File filePath="otrodir/apiclient.4gl"/>
+      <File filePath="classes/enviaemail_4.4gl"/>
+    </Library>
+    <Library binaryName="FUNCIONESREPORT" id="-1423229125" label="FUNCIONESREPORT">
+      <File filePath="otrodir/msgrp000.4gl"/>
+      <File filePath="otrodir/seleccionarsalida.4gl"/>
+      <File filePath="vedir/veprrp049_1.4gl"/>
     </Library>
     <Library binaryName="STYLES" id="-902110420" label="STYLES">
       <File filePath="bin/mainmenu.4st"/>

PROYECTO/otrodir/comprimeImagen.4gl

@@ -0,0 +1,7 @@
+FUNCTION comprimeImagen(filedestino,tamano)
+
+    DEFINE filedestino, comando,tamano STRING
+      
+    LET comando = 'magick convert ',filedestino,tamano,filedestino
+    RUN comando
+END FUNCTION  

PROYECTO/otrodir/ircodigosMovimientos.4gl

@@ -0,0 +1,17 @@
+FUNCTION ircmovimientos()
+ 
+ DEFINE  ketiquetas SMALLINT, detiquetas STRING,
+         cbmovimiento ui.ComboBox
+         
+    LET cbmovimiento = ui.combobox.forname("formonly.cod_mov")
+    DECLARE bmovimiento CURSOR FOR
+      SELECT a.cod_mov,RTRIM(a.descrip_mov)||'('||cast(a.cod_mov AS varchar(6))||')' FROM irtb00005 a
+      ORDER BY a.descrip_mov
+      CALL cbmovimiento.clear()
+ 
+    FOREACH bmovimiento INTO ketiquetas,detiquetas
+      CALL cbmovimiento.additem(ketiquetas,detiquetas)
+    END FOREACH
+    
+ END FUNCTION
+