FiveTech Software tech support forums

Mr. Rao, buenos dias, el error ocurre cuando tengo un array { { "codigo1", "nombre1", "precio1"},{ "codigo2", "nombre2", "precio2"},{ "codigo3", "nombre3", "precio3"},... }, y defino ...

... 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) Y BIEN ...

... nVal := nVal + 1 EndIf nVal := nVal + oQuery:ctrl nVal := ( nVal / 2 ) cCtrl := STR(nVal,10, 5) oServer:Query("INSERT INTO gopmult (ctrl, nombre1) VALUES ('" + cCtrl + "', '" + cDato + "')") oServer:Query("SET @r := 0") oServer:Query("UPDATE gopmult ...

... inserta blanco en lin y detalle si lo hace. cLin := "1" endif cLin := cLin + oQuery:lin oServer:Query("INSERT INTO gopmult (lin, nombre1) VALUES ('" + cLin + "', '" + cDetalle + "')") oQuery:locate("lin",cLin) oQuery:Refresh() oLbx:Refresh() ...

... oServer:Query("CREATE TABLE IF NOT EXISTS gopmult(" +; "LIN INT(3) NOT NULL DEFAULT 0 COMMENT 'control lineas'," +; "NOMBRE1 VARCHAR(50) NULL DEFAULT '' COMMENT 'cuenta'," +; "INDEX gopmult (LIN) )"+; //No uso primary Key porque necesito num de lineas ...

... sirve. FOR n := 1 to len(:aCols) :aCols[n]:bLClickHeader := {|| MsgInfo(oLbx:aCols[oLbx:nColSel]:Value) } * if upper(:aCols[n]:cHeader) == "NOMBRE1" * :aCols[n]:bLClickHeader := {|| MsgInfo(oLbx:aCols[oLbx:nColSel]:Value) } * endif NEXT // oLbx:aCols[4]:bLClickHeader := {|| MsgInfo(oLbx:aCols[4]:Value) ...

... := {|o, v, n| (DBRLOCK(),DATPER->NOMBRE:=v) }  Si la cargo manualmente asi aNombres:={"NOMBRE1","NOMBRE2","NOMBRE3"} funciona Gracias amigos por la ayuda Adhemar

... esl documento primario donde tengo entre corchetes los campos a reemplazar */ oWord:OpenDoc("C:\DATA1\SALARIO1.DOC") oWord:SetCm() oWord:Replace([Nombre1],mCodigo+"-"+mNombre) oWord:replace([Fing],mCarrera) oWord:replace([Mcargo],mCargo) oWord:replace([Msalario],mSaldo) oWord:replace([Mletras],mTexto) ...

Javier,

Las declaras al comienzo del PRG como:

memvar nombre1, nombre2, etc...

?

... de 6 digitos"), .F.),; IF (!maepro->(dbSeek(CCVENVA)),; (msgStop ("No Existe Productor "), .F. ),; (oSay7:settext(oemtoansi(cnombre:=maepro->nombre1)),; (oSay10:settext(casoc:=maepro->asoc)),(LEETEMP(CCVENVA)),.T.) ) ) } ) REDEFINE LISTBOX oLbx fields TRANSFORM(TMP_HER->CVENVA,"9/99-999"),OemToansi(TMP_HER->descon),OemToansi(TMP_HER->edi_ciclo),; ...

... SE DESPLIEGUE EL RESTO DE LA INFORMACION DE ESOS CLIENTES. EJEMPLO DESPLIEGO LOS 3 PRIMEROS DATOS QUE SOLO SON DE CONSULTAS CLAVE NOMBRE RFC 1 NOMBRE1 GFSE312323 2 NOMBRE2 ERTY423423 ... ... -------------------------------------------------------- AL MOMENTO DE ESTAR UBICADO EN NOMBRE 1 EN ...

... digitos"), .F.),; IF (!maepro->(dbSeek(CCVENVA)),; (msgStop ("No Existe Productor "), ok:=.F. ),; (oSay7:settext(oemtoansi(cnombre:=maepro->nombre1)),; (oSay14:settext(csupest:=maepro->has_est)),; (oSay16:settext(csupred:=maepro->hasest_red)),; (oSay10:settext(casoc:=maepro->asoc),ok:=.t.),; ...

... ok:=.F.),; IF (!maepro->(dbSeek(CCVENVA)),; (msgStop ("No Existe Productor "), ok:=.F. ),; (oSay7:settext(oemtoansi(cnombre:=maepro->nombre1)),; (oSay14:settext(csupest:=maepro->has_est)),; (oSay16:settext(csupred:=maepro->hasest_red)),; (oSay10:settext(casoc:=maepro->asoc),ok:=.t.),; ...

... ok:=.F.),; IF (!maepro->(dbSeek(CCVENVA)),; (msgStop ("No Existe Productor "), ok:=.F. ),; (oSay7:settext(oemtoansi(cnombre:=maepro->nombre1)),; (oSay14:settext(csupest:=maepro->has_est)),; (oSay16:settext(csupred:=maepro->hasest_red)),; (oSay10:settext(casoc:=maepro->asoc),ok:=.t.),; ...

... set _3dlook on //patres:="z:\aviores" // USE C:\AVIO\AVIORES\maepro ALIAS maepro USE C:\AVIO\aviores\maepro ALIAS maepro INDEX ON MAEPRO->NOMBRE1 TO c:\AVIO\ALFA set index to c:\AVIO\ALFA close data // USE C:\AVIO\AVIORES\maepro alias maepro shared new USE C:\AVIO\aviores\maepro alias ...