Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

PROYECTO/otrodir/busca_d.4gl

@@ -0,0 +1,45 @@
+{
+==============================================================================
+PROGRAMA   : BUSCA_D
+OBJETIVO   : BUSCA LAS DIRECCIONES DE LOS CLIENTES EN LOS REPORTES
+             QUE LO REQUIERA
+PROGRAMADOR: JUAN F. SOTO
+FECHA      : AGOSTO 28, 1997.
+
+==============================================================================
+}
+
+DATABASE exterior
+
+FUNCTION busca_d(tipo_cliente,sec_cliente)
+  DEFINE tipo_cliente,sec_cliente SMALLINT
+  DEFINE clientes RECORD LIKE vetb00004.*,
+         localidad,direccion CHAR(80),
+         p_calle,p_casa,p_barrio,p_urbaniza,descrip_zona CHAR(25),
+         descrip_prov CHAR(30)
+
+  SELECT a.* INTO clientes.*
+  FROM vetb00004 a
+  WHERE a.tipo_cliente = tipo_cliente AND
+        a.sec_cliente = sec_cliente
+
+  SELECT a.descrip INTO descrip_zona
+  FROM vetb00008 a
+  WHERE a.cod_zona = clientes.cod_zona
+
+  SELECT a.nombre_provincia INTO descrip_prov
+  FROM vetb00020 a
+  WHERE a.cod_provincia = clientes.cod_provincia
+
+  SELECT a.calle,a.casa_num,a.barrio,a.urbanizacion 
+  INTO p_calle,p_casa,p_barrio,p_urbaniza
+  FROM vetb00005 a
+  WHERE a.tipo_cliente = tipo_cliente AND 
+        a.sec_cliente = sec_cliente
+
+  LET localidad = "ZONA: ",descrip_zona CLIPPED," PROVINCIA: ",
+                  descrip_prov CLIPPED," Tel. ",clientes.telefono
+  LET direccion = p_calle CLIPPED," ",p_casa CLIPPED," ",p_barrio CLIPPED," ",
+                  p_urbaniza CLIPPED
+  RETURN localidad,direccion
+END FUNCTION