primer commit subida

2026-09-22 20:38:51 -04:00
commit 07649704b1
10247 changed files with 3271751 additions and 0 deletions
@@ -0,0 +1,13 @@
+
+  ON KEY(CONTROL-W)
+     IF INFIELD(cod_sp_sec) OR INFIELD(cod_sp) THEN
+        CALL busca_cliente()
+        LET otros_mov.cod_sp      = clientes[idx].tipo_cliente
+        LET otros_mov.cod_sp_sec  = clientes[idx].sec_cliente
+        LET otros_mov.descrip4     = clientes[idx].nombre
+
+        DISPLAY BY NAME otros_mov.cod_sp,
+                        otros_mov.cod_sp_sec, 
+                        otros_mov.descrip4
+        EXIT INPUT
+      END IF