FiveTech Software tech support forums

... ) oQry:GoBottom() BEGIN TRANSACTION cCmdSql:= "INSERT INTO nombres ( " cCmdSql += "nombre" + "," cCmdSql += "apellido1" + "," cCmdSql += "apellido2" + "," cCmdSql += "direccion" + "," cCmdSql += "edad" ...

... y acepto sugerencias e ideas, gracias y saludos... :shock: // VAR CON LOS CAMPOS NECESARIOS EN EL QRY A CONSTRUIR... cCamposINS := "numero, apellido1, nombre1, grupo, plazomeses, status, producto, mtocontratar, cuotamensual, licitaciones" // QUERY INSC.CON FILTRO DE: GRUPO, STATUS(estado) ...

... @ nRow,1 XLS SAY "Numero" FONT nfont2 OF oFileXLS @ nRow,2 XLS SAY "Nombres " FONT nfont2 OF oFileXLS @ nRow,3 XLS SAY "Apellido1" FONT nfont2 OF oFileXLS @ nRow,4 XLS SAY "Apellido2" FONT nfont2 OF oFileXLS @ nRow,5 XLS SAY "Fec_Ing" FONT nfont2 ...

... 4 REDEFINE LISTBOX oLbx FIELDS MAE11->NUM_INSS,DTOC(MAE11->FEC_INGRESO), MAE11->CEDULA, ; ALLTRIM(MAE11->NOMBRES), ALLTRIM(MAE11->APELLIDO1), ALLTRIM(MAE11->APELLIDO2), MAE11->TRABAJO, ; MAE11->TEL_TRABAJO, MAE11->STATUS ; HEADERS "# del INSS ","Fec_Ing","# ...

... @ nRow,1 XLS SAY "Numero" FONT nfont2 OF oFileXLS @ nRow,2 XLS SAY "Nombres " FONT nfont2 OF oFileXLS @ nRow,3 XLS SAY "Apellido1" FONT nfont2 OF oFileXLS @ nRow,4 XLS SAY "Apellido2" FONT nfont2 OF oFileXLS @ nRow,5 XLS SAY "Fec_Ing" FONT nfont2 ...

... = .t. oRs:ADDNEW() // crea un nuevo registro en blanco oRs:Fields("Numero"):value := SPACE(5) oRs:Fields("Nombre"):value := SPACE(25) oRs:Fields("Apellido1"):value := SPACE(15) oRs:Fields("Apellido2"):value := SPACE(12) oRs:Fields("Tipo"):value := SPACE(1) oRs:Fields("Tip_Emp"):value := SPACE(10) ...

prueba tambien asi al guardar ,, sobre todo cuando es edicion,, oRecordSet:Fields("Apellido1"):value := _scFill( mAp1, 15 ) oRecordSet:update() function _scFill(c, nLon) local nLen local nSp if valtype(c) <> "C" c := '' ENDIF nLen := len(c) nSp := len(space(nLon-nLen)) ...

Ramon,

las variables, de tipo caracter checale que tengan la misma longitud

en la tabla.

por ejemplo APELLIDO1 VARCHAR(15)

mAp1 = space(15)

verifica que al momento de guardar no haya valores nulos

saludos...

Ramon,

las variables, de tipo caracter checale que tengan la misma longitud

en la tabla.

por ejemplo APELLIDO1 VARCHAR(15)

mAp1 = space(15)

verifica que al momento de guardar no haya valores nulos

saludos...

... DIALOG oDlg RESOURCE 78 REDEFINE LISTBOX oBrw FIELDS oRecordSet:Fields("Numero"):value,; oRecordSet:Fields("Nombres"):value,; oRecordSet:Fields("Apellido1"):value,; oRecordSet:Fields("Apellido2"):value,; oRecordSet:Fields("Tipo"):value,; oRecordSet:Fields("Tip_Emp"):value; HEADERS "Numero","Nombres","Apellido1","Apellido2","Tipo","Tip_Emp" ...

... "1234" ALIAS "MAESTRO" DEFINE DIALOG oDlg FROM 1, 1 TO 25, 79 @ 1, 1 LISTBOX oBrw FIELDS MAESTRO->NUMERO, ; MAESTRO->nombreS, ; MAESTRO->APELLIDO1 ; HEADERS "Codigo","Nombre ","Salario" ; FIELDSIZES 60,200,60 ; SIZE 284, 137 OF oDlg @154,08 BTNBMP LEFT PROMPT " Agregar" SIZE 50,19 OF ...

... "1234" ALIAS "MAESTRO" DEFINE DIALOG oDlg FROM 1, 1 TO 25, 79 @ 1, 1 LISTBOX oBrw FIELDS MAESTRO->NUMERO, ; MAESTRO->nombreS, ; MAESTRO->APELLIDO1 ; HEADERS "Codigo","Nombre ","Salario" ; FIELDSIZES 60,200,60 ; SIZE 284, 137 OF oDlg @154,08 BTNBMP LEFT PROMPT " Agregar" SIZE 50,19 OF ...

... "1234" ALIAS "MAESTRO" DEFINE DIALOG oDlg FROM 1, 1 TO 25, 79 @ 1, 1 LISTBOX oBrw FIELDS MAESTRO->NUMERO, ; MAESTRO->nombreS, ; MAESTRO->APELLIDO1 ; HEADERS "Codigo","Nombre ","Salario" ; FIELDSIZES 60,200,60 ; SIZE 284, 137 OF oDlg @154,08 BTNBMP LEFT PROMPT " Agregar" SIZE 50,19 OF ...