PC Toledo

Código: Selecionar todos

Function Main()
public _mat_arq := {}
_nom_arq := "men001.dbf"
_mat_arq := {}
aadd(_mat_arq,{"cod_men","c",04,00})
aadd(_mat_arq,{"dia_ven","c",02,00})
aadd(_mat_arq,{"msg_mes","c",01,00})
Verdbf(_nom_arq)


Return Nil




----------------------------------------------------------------------
FUNC VERDBF(_nom_arq)
----------------------------------------------------------------------
     if ! leto_file(_nom_arq)
*		DbCreate(_nomarq,_mat_arq) // assim não funciona no leto
		DbCreate(_nom_arq,_mat_arq,,.t.,'alias')  // assim funciona
        retu .t.
     else
        if _atual # '1'
           leto_ferase('arq_tmp')                      // Perfeito
*		   //DbCreate('arq_tmp',_mat_arq,,.t.,'alias')   // funcionou assim e em baixo tb
		   DbCreate(PathLeto + 'arq_tmp',_mat_arq,,.t.,'alias')   // Perfeito
		   use (PathLeto + 'arq_tmp')
*		   appe from &_nom_arq  // era assim mas não funciona no leto 
           arquivo := PathLeto
		   appe from (_nom_arq)
		   leto_ferase(_nom_arq)
           DbCloseArea()
		   leto_frename('arq_tmp.dbf',_nom_arq)
        endif
        retu .f.
     endif

Código: Selecionar todos

***************************************
FUNCTION MyAppendFrom(cAO,cAD,cTempDBF) //cAO = Alias Origem, cAD Alias Destino
***************************************
*
*
LOCAL nCount, nCampos := (cAD)->(FCount()), x:=1, nRec:=1, nTotRec := (cAO)->(LastRec())
LOCAL cType := "" , xField
oBar := HProgressBar():NewBox("Importando " + cTempDBF + ", " + (cAO)->(Dbf()) + ": "+lTrim(str(1,9))+" De "+lTrim(Str(nTotRec,9))+" Registro(s)" ,,0,400,, nTotRec, nTotRec,,.f. )

DO WHILE (cAO)->(!Eof())
   (cAD)->(dbAppend())

   FOR nCount := 1 TO nCampos
      cField := (cAD)->(Field(nCount))      
      IF ( (cAO)->(fieldpos( cField )) != 0 )
      
         cTypeDest := ValType( (cAD)->&cField )
         cTypeOrig := ValType( (cAO)->&cField )
         
         IF cTypeDest <> cTypeOrig
         
            IF cTypeDest == "C" .AND. cTypeOrig == "N"
               xField := hb_ntos( (cAO)->&cField  )
            ELSE
               xField := (cAO)->&cField 
            ENDIF 
            
         ELSE
             //hwg_msginfo(cField + " --- " +cTypeOrig)
             xField := (cAO)->&cField 
             //hwg_msginfo(cField + " --- " +ValType(xField))
         ENDIF
         
         (cAD)->&cField := xField
                  
      ENDIF
   NEXT
   (cAO)->(dbSkip())
   iif(x++==100,(nRec+=x,x:=1,ShowGrafico(oBar,nRec,nTotRec)),.t.)
EndDO

oBar : Close()   
FechaDb(cAD)
FechaDb(cAO)

/*
   oBar := HProgressBar():NewBox( cDirImport + " - Importando... "+lTrim(str(1,9))+" De "+lTrim(Str(nTotRec,9))+" Registro(s)" ,,0,400,, nTotRec, nTotRec,,.f. )
   x    := 0
   nRec := 0
   //dbSelectArea('dbc')
   //hwg_msginfo(Alias()+"---"+string+'---'+cTempDBF)
   Append from &cDirImport via iif(lRddLeto,"LETO","DBFCDX") For iif(x++==100,(nRec+=x,x:=0,ShowGrafico(oBar,nRec,nTotRec)),.t.)

   oBar : Close()   
   dbc->(DbCloseArea())
*/
RETURN .T.

Código: Selecionar todos

2010-10-09 13:00 UTC+0300 Pavel Tsarenko (tpe2/at/mail.ru)
  * source/server/letofunc.c
  * source/client/leto1.c
    + leto_SetAreaEnv() and leto_ClearAreaEnv() functions for navigation
      operations on server
    + added support for letoTrans(). The commands COPY TO / APPEND FROM
      (functions __dbCopy() / __dbApp()) can evaluated on the server now
  * tests/test_tr.prg
    + added sample for functions Leto_dbTrans(), Leto_dbCopy(), Leto_dbApp().
      The difference of these functions from standard __dbTrans(), __dbCopy(),
       __dbApp() that instead of codeblocks for "for" and "while" their
       string representation is transferred.

Código: Selecionar todos

IF cTypeDest <> cTypeOrig
   IF cTypeDest == "C" .AND. cTypeOrig == "N"
      xField := hb_ntos( ValType( (cAO)->&cField ) )
   ELSE
      xField := (cAO)->&cField
   ENDIF