FiveTech Software tech support forums

... suele enviar info cuando se depura ahora digamos que tu tabla se llama clientes.dbf y esta en c:\apache24\htdocs\data y que tiene un campo llamado codcli que es caracter de 10 y otro campo nombre caracter de 30 inserto esta function en hbnetio.prg function buscacli( cCod ) local cPath := 'c:\apache24\htdocs\data\' ...

Hi, I want to delete a registro cumpliendo una condicion.

codcli := "2001"

csql := oCon:DELETEsql( "clientes" , , , {{ "numercli" , codcli }} )

Thanks.

... gustaria saber si alguien tiene una funcion que me permita copiar la estructura de cada .dbf en un txt. Algo asi como : local aFields := { { "CODCLI", "C", 8, 0 },; { "NOMCLI", "C", 60, 0 },; { "CODACTI", "C", 5, 0 },; DbCreate( "myfile.dbf", ...

... Type Value ========================== FW_DBFRENAMEFIELD Param 1: O Class: ERROR MAIN Param 1: C "MXCTACLI.DBF" Param 2: C "CODCLI " Param 3: C "CUSTCODE " Local 1: L .F. Local 2: U Local 3: U Local 4: U Local 5: C " " Local 6: S Local 7: U Local ...

... { "localhost", "rovigo", "root", "1223", 3306,1 } ) por ejemplo con oRcs := oConexion:Query("Select CodCli,NomCli From Clientes") al colocarle .f. no sale el mensaje cuando no consigue la tabla, ejemplo oRcs := oConexion:Query("Select CodCli,NomCli ...

... function brow( oWnd, oRcs )   local oBrw   @ 0,0 XBROWSE oBrw SIZE 400,500 PIXEL OF oWnd ;      DATASOURCE oRcs ;      COLUMNS "codcli", "nomcli" ;      HEADERS "Código", "Nombre" ;      COLSIZES 150,150 ;      AUTOSORT FOOTERS CELL LINES NOBORDER  ...

... == nil       msginfo("error base de datos")       return(.f.)    EndIf    oRcs := oConexion:Query("Select CodCli,NomCli From Clientes Limit 5")    If oRcs==Nil       msginfo("error tabla")    Return(.f.)    EndIf   define ...

... TwBrowse y TsBrowse, si presenta los miles de registros, mi pregunta es sobre TxBrowse cCommand:="SELECT codven,fecven,coddoc,numdoc,refere,codcli,nomcli,tipmon,totven,totigv,totnet,status,motnota,posted,fecdes,usrsta,codzon,numenv,numbaj,nroanx,sql_rowid FROM "+regvta+" WHERE ...

...          "LVENTAS" )      GrabarCmp( "FECALB", dFecAlbCtdo,      "LVENTAS" )      GrabarCmp( "CODCLI", TERMINAL->CODCLI, "LVENTAS" )      GrabarCmp( "TPUVEN", TERMINAL->TPUVEN, "LVENTAS" )  ...

... Space(10),; // 3 numped Space(4),; // 4 codven Space(3),; // 5 codpag Space(2),; // 6 cobdoc Ctod(""),; // 7 fecent Space(5),; // 8 codcli Space(2),; // 9 codalm Space(20),; // 10 NOM VEND Space(20),; // 11 nom fpago Space(8),; // 12 VAR BASE AYUDA Space(10),; // 13 nomcli Space(10),; ...

... cfiltr='alltrim(str(numalb))="'+alltrim(str(albaclie->numero))+'" .and. fecha="'+dtoc(albaclie->fecha)+'" .and. codcli="'+alltrim(albaclie->cliente)+'"' albaran->(AdsSetAOF( cfiltr )) ; go top Dando gracias a todos los compañeros que han aportado ...

Esto me lo paso un colega, me funciona bien, estoy haciendo lo mismo que tu, facturacion con xBRWOSE, espero te sirva... REDEFINE GET oGetF2[1] VAR oFVentas:oDbfFACVTA:fac_codcli; // CODIGO CLIENTE ID 201 OF oFVentas:oFldVENTAS:aDialogs[2] UPDATE PICTURE "@!" ; VALID (oFVentas:oBrwVENTAS:S...

Hola Espero te ayude a resolver tu problema oRcs:Source := "Select * From MaesFaVe m,Clientes c Where m.CodCli=c.CodCli And FecFave >= '" + NtocSql(cFecDes) + "'And FecFaVe <= '" + NtocSql(cFecHas) // Function NtocSql(Fecha) Return(Ntoc(Year(Fecha),4) ...

... y tiene datos entonces supongo que tiene que ser algo del listbox. Este es mi código: @ 2.2,0 LISTBOX oObj[6] FIELDS TienePedido(ctbfcli->codcli),TieneCobros(ctbfcli->codcli),ctbfcli->codcli,ctbfcli->razsoc COLSIZES 18,13,35,200 HEADERS "PA","C","Cód.","Razón Social" SIZE 240,210 ...

Los valores de las cuatro columnas son todos tipo cadena ?

TienePedido(ctbfcli->codcli)
TieneCobros(ctbfcli->codcli)
ctbfcli->codcli
ctbfcli->razsoc