FiveTech Software tech support forums

... 4556678 DEFINE PEN oPen4 WIDTH 3 COLOR 3123123 #DEFINE VACIA 0 #DEFINE RELLENA 1 oPrn:setpage(9) // A4 sele 1 set order to 8 go top zmesliq:=val(subs(1->mes_liq,1,4)+subs(1->mes_liq,6,2)) xbarra:=subs(m->wwcuit,1,2)+subs(m->wwcuit,4,8)+subs(m->wwcuit,13,1); +xlet+strzero(xemi,4)+strzero(xnum,8)+subs(1->cae,1,14) ...

... IF ( cDriVer == "DBFCDX" .OR. cDriVer == "ADS" ) .AND. !EMPTY(cPatTab) cNomArc := ALLTRIM(SUBS(cNomTab,1,8))+'.CDX' IF FILE(cPatTab+cNomArc) IF SELECT (cAliTab) <> 0 SELECT (cAliTab) // POR SI LA TABLA TIENE INDIXE Y NO SE ABRIO (cAliTab)->( ...

... cQuery += "Fac.numero_documento, " cQuery += "Fac.fecha_documento, " cQuery += "Fac.fecha_vencimiento, " dHoy:=subs(dToc(_dFechaDeHoy),7,4)+"/"+subs(dToc(_dFechaDeHoy),4,2)+"/"+subs(dToc(_dFechaDeHoy),1,2) cQuery += "DATEDIFF('"+dHoy+"', ...

... in use 2: => PLANILHA RddName: DBFCDX ============================== RecNo RecCount BOF EOF 159 158 .F. .T. Indexes in use TagName descend (subs(nridplan,5,2)+ subs(nNRIDPLAN upper(DOCORCAM) DOCORCAM upper(CLIENTE) CLIENTE (cliente+desenho+desmestre+item) PCLDSDMI (cliente+desmestre+desenho+item) ...

... IF nPos>=20 MsgStop("Tiempo de espera superado") RETURN NIL ENDIF oIe:Visible:=.F. cTextoHTML:=oIE:Document:body:innerHTML() cRpta:=subs(cTextoHTML,AT("{respuest:",cTextoHTML)+10,1 ) if cRpta=="1" MsgStop("No existe el archivo que se quiere procesar : "+cValFil,gci_msgerror()) ...

... amigos Gracias por la ayuda Funciono si busco, y quiero eliminar todos los registros que cumplan un acondision bcodi:='102125225212252' If Subs(oRs:bcodi,4,2)="1" asi se hace en archivos dbf's y en mariadb seria asi ? oCn:Execute( "DELETE FROM `cont0500` WHERE `bcodi` LIKE ...

... la tabla cont0500 oRs := oCn:RowSet( "cont0500" ) // "lecturas" es una tabla de cDatabasename oRs:GoTop() Whil !oRs:Eof() If Subs(oRs:bcodi,1,1)="1" oRs:Delete();oRs:Save() Endi oRs:Skip(1) End XBROWSER oRs FASTEDIT oCn:Execute( "DELETE FROM `cont0500` WHERE ...

/* oRs := oCn:RowSet( "cont0500" ) // "lecturas" es una tabla de cDatabasename oRs:GoTop() Whil !oRs:Eof() If Subs(oRs:bcodi,1,1)="1" oRs:Delete();oRs:Save() Endi oRs:Skip(1) */ cQry := "DELETE FROM cont0500" + CLRF cQry += "WHERE bcodi=" ...

... la tabla cont0500 oRs := oCn:RowSet( "cont0500" ) // "lecturas" es una tabla de cDatabasename oRs:GoTop() Whil !oRs:Eof() If Subs(oRs:bcodi,1,1)="1" oRs:Delete();oRs:Save() Endi oRs:Skip(1) End XBROWSER oRs FASTEDIT

... DATA nombre,direccion," " FONT 2 COLUMN TITLE "LOCALIDAD","PROVINCIA"; DATA subs(localidad,1,15),provincia FONT 2 END REPORT oReport:bInit:={||.t.} oReport:bInit := { || dbGoTop() } ACTIVATE REPORT oR31:oReport return nil

... ; '<cbc:ID>20606177896</cbc:ID>'+ ; '</cac:PartyIdentification>' Pos_1:=HB_At('PartyIdentification',_Xml_) _Txt_:=Subs(_Xml_,Pos_1,60) Pos_1:=HB_At('ID>',_Txt_) ? 'Ruc -> '+Subs(_Txt_,Pos_1+3,11) Return(Nil)

... dFecha:=EVAL(bSqlDate,nD,nM,nA) RETURN dFecha ENDIF RETURN DTOS(dFecha) STATIC FUNCTION SQLTABLENAME(cSql) LOCAL cTable cTable :=ALLTRIM(SUBS(cSql,AT(" FROM ",UPPE(cSql))+5,LEN(cSql))) cTable :=IIF(" " $cTable,LEFT(cTable,AT(" " ,cTable)),cTable) cTable :=IIF(CRLF$cTable,LEFT(cTable,AT(CRLF,cTable)),cTable) ...

... oBrwa:lHScroll := .t. REDEFINE GET oxaaa VAR xaaa ID 4012 OF oDlg picture "@!" ; ON CHANGE (::assign(),dbsetorder(2),; if(BUSCOA(upper(subs(xaaa,1,::nPos-1))+upper(chr(nkey)),oBrwa),.t.,.f.) ) REDEFINE XBROWSE oBrwr FIELDS ; str(2->rubro),; 2->Nombre ; HEADERS; "Rub.",; ...

... cDelm1 ) .AND. (!EMPTY( cDelm2 ) .OR. cDelm2 == CRLF ) // A517..21 IF cDelm1 $ cUpStr nPos1 := AT( cDelm1, cUpStr ) + LEN( cDelm1 ) IF cDelm2 $ SUBS( cUpStr, nPos1 ) inkey(.8) nPos2 := HL_PAT( nPos1, cDelm2, cUpStr ) cRVal := SUBS( cUpStr, nPos1, nPos2-nPos1 ) cUpStr := SUBS( cUpStr, 1, nPos1 ...

... FOR YESTERDAY BEFORE " +; "UPDATING THE QUOTES FILE FROM BLOOMBERG TODAY!") SETCURSOR(HWAIT) CASE SDATE != DATE() .AND. ( VAL(SUBS(TIME(),1,2)) > 14 ) SETCURSOR(HAROW) SAYMSG("THE MARKET HAS CLOSED FOR THE DAY!" + CR2 +; "PLEASE RUN THE BLOOMBERG SYMBOL EXPORT ...