FiveTech Software tech support forums

... SELECT 10 USE (cSERVER + "ARQMES.DBF") NEW //SHARED cCompetencia:="01/2021" cStr="Tempo Abertura de DBFs: " + Transf(ElapTime(cTime,TIME()),"@k 99:99:99") SWPanelRefresh( oPan, cStr ) inkey(1) SWPanelClose( oPan ) ? 'Tempo da leitura dos registros: ...

... us a practical example of how you are doing it, i have no idea what you want.       // ? VAL( CNUM )      cValcNum := VAL( CNUM )      ? TRANSF( cValcNum, "99-99-99-99-99-99-99-99-99" )  Regards, saludos. ahhahaaahahahahahahaahaahhaahahahahaha, you're are Joke :) I cannot ...

... := 3 // local cache oSql:LockType := 3 // lock opportunistic FOR nX1=2 TO nMax // Message... oSay:SetText( "Processing XLS Row " + LTRIM(TRANSF( nX1, "999,999" ) ) ) Sysrefresh() nId := _XlsRead( @oSheet, nX1, 1, "N" ) cSourceLang := _XlsRead( @oSheet, nX1, 2, "C" ...

... Captura" ; FIELDS (S12)->A_TIPO, STR((S12)->A_NUMPOL,5), DTOC((S12)->A_FHAMOV), SUBS((S12)->A_CONCEP,1,45), ; TRANSF((S12)->A_TOTCARG,"99,999,999.99"), TRANSF((S12)->A_TOTCRED,"99,999,999.99"), ; DTOC((S12)->FECALTA), (S12)->REGHORA ...

... , oDlg:End() ) // Details... SELECT wmsdet GO TOP SEEK Mserial DO CASE CASE 'LINKSYS' $ Pmod REDEFINE LISTBOX oDimBox FIELDS wmsdet->desc , ; TRANSF(wmsdet->qty,"9999999") , ; wmsdet->pkg , ; LTRIM( STR( wmsdet->len, 9, 1 ) ) + ' x ' + LTRIM( STR( wmsdet->wid, 9, 1 ) ...

... IF FILE( cC2 ) FERASE( cC1 ) // Counter... nXmlCnt++ ENDIF ENDIF NEXT nXml1 DbCloseAll() // Message... oSay1:SetText( 'XML Processed = ' + LTRIM( TRANSF( nXmlCnt, "999,999" ) ) ) oSay2:SetText( 'Process Complete...' ) SysRefresh() RETURN nil //----------------------------------------------------------------------------- ...

... 460,525' ) AADD( aLabel, 'PRTXT "PKG TYPE: ' + cPkg + '"' ) AADD( aLabel, 'PRPOS 030,450' ) AADD( aLabel, 'PRTXT "LBS: ' + LTRIM(TRANSF(nLbs,"999,999.99")) + '"' ) AADD( aLabel, 'PRPOS 030,375' ) AADD( aLabel, 'PRTXT "DIMS: ' + cDims + '"' ) AADD( aLabel, ...

... cXMLSedex ) cXMLPreco := XMLGet( "preco_postal", cXMLResp ) cXMLErros := XMLGet( "descricao" , cXMLResp ) cTotal := transf( val( cXMLPreco ), "@E 99,999.99" ) oSay:SetText( iif( empty( cXMLErros ), "Operacion concretada OK!", cXMLErros ) ) oDlg:update() ...

... /* Start Printing Page */ PAGE /* Let's Go */ FOR nX=0 TO 100 Mrow := ROUND( Mv_max * (nX/100), 0) Mtmp = RIGHT("000"+ LTRIM(TRANSF(nX,"999")),4) nBeg = 4 IF LTRIM(STR( MOD(nX,2),2)) ="0" Mtmp = "" nBeg = 1 ENDIF FOR nY=nBeg TO 100 IF nY=nBeg ...

... 108 ; OF oFld:aDialogs[ 1 ] oBrw:aJustify := {.F.,.F.,.T.} oBrw:nAt = 1 oBrw:bLine = { || { aSample[ oBrw:nAt ][ 1 ],; aSample[ oBrw:nAt ][ 2 ],; TRANSF(aSample[ oBrw:nAt ][ 3 ],"999,999.99") } } oBrw:bGoTop = { || oBrw:nAt := 1 } oBrw:bGoBottom = { || oBrw:nAt := Eval( oBrw:bLogicLen ...

... oCol:nDataStrAlign:= 2 oCol:cHeader := "LABORATORIO"+CRLF+"FACT" oCol := oBrw:AddCol() oCol:nWidth :=100 oCol:bStrData := { || transf(wfprodu->prelis,"99,999,999.99") } oCol:nDataStrAlign:= 1 oCol:cHeader := "PRECIO DE"+CRLF+"LISTA" oBrw:lHScroll:=.t. ...

... tu función, tú ya mandas en cms, lo que yo quiero buscar en esa medida. Si recuerdas, en clipper cuando enviábamos a imprimir, @ Prow()+1 , 09 Say TRANSF(SER->codigo,"999") ese 09 en negritas es una columna, pero no está en cms, y es lo que yo preguntaba. ¿Cómo puedo saber a qué cms ...

devtuxtla: Yo utilizo sendmail() de Luiz Culik: LUIZSendMail('mail.mas-suis.com.ar',25,'suisrm@mas-suis.com.ar',{'suisrm@mas-suis.com.ar'},'','Envio SUISRM '+PARAMETR->NROLOC,{'c:\_transf\ENVIA'+PARAMETR->NROLOC+'.ZIP'},; 'suisrm@mas-suis.com.ar','ana1234','mail.mas-suis.com.ar',3,.F.,.F.,.T.)...

... = cFlkey ) REDEFINE LISTBOX oLbx2 FIELDS invoice->type , ; invoice->flkey , ; invoice->invoice , ; DTOC( invoice->invdate ) , ; TRANSF( invoice->totamt, "9,999,999.99" ) , ; TRANSF( invoice->totcst, "9,999,999.99" ) , ; IF( invoice->flprt, "PRINTED","NOT-PRINTED") , ...

... @cLine, 1, @lEof ) // Criteria... IF EMPTY( cLine ) LOOP ENDIF nLine++ // Log... cDat := cCTS + " EOF = " + IF(lEof,"YES","NO") + " = " + LTRIM(TRANSF(nLine,"999,999")) + cEol FWRITE( hLog, cDat ) // Tag... cTag := UPPER( LEFT( cLine, AT("*",cLine)-1 ) ) cValue := UPPER( SUBSTR( cLine, AT("*",cLine)+1 ...