Boa tarde..
Itamar, como seria então... ?
Obrigado
Moderador: Moderadores
cOrder := [ CODIGO ]
cQuery := [ ! Left( Classe_Pg, 2 ) $ "06,08,10,11,12" .AND. Empty( D_Faleci ) .AND. Empty( D_Deslig ) .AND. ! Deleted() ]
INDEX ON &cOrder. TAG A020100 FOR &cQuery. TEMPORARY ADDITIVE EVAL oClPF:Evento()
cVar1 := 'APC01->D_CL10 >= CTOD(' + ['] + DTOC( ThisForm:oDataIni:GetValue() ) + ['] + ') .AND. '
cVar2 := 'APC01->D_CL10 <= CTOD(' + ['] + DTOC( ThisForm:oDataFim:GetValue() ) + ['] + ') .AND. '
CVar3 := cVar1 + cVar2 + 'Left( APC01->Classe_Pg, 2 ) = "10"'
nRegistros := ::GravaTemp( CVar3 )
arquivotmp := "TESTE"
cli1 := "001"
cli2 := "002"
cGrupo := "01"
leto_dbcreateTemp( "mem:clientes", aField, "DBFCDX", .T., "clientes")
INDEX ON Clientes->Codigo TAG Temp01 TO (arquivotmp) ;
FOR VAL(Clientes->Codigo) >= VAL(cli1) .and. VAL(Clientes->Codigo) <= VAL(cli2) .and.;
Clientes->MalaDireta=="S" .and. Clientes->Situacao==cGrupo ADDITIVE MEMORY
clientes->( DbAppend() )
Clientes->Codigo := "001"
clientes->Situacao := "01"
Clientes->MalaDireta := "S"
clientes->( DbCommit() )
clientes->( DbAppend() )
Clientes->Codigo := "002"
clientes->Situacao := "01"
Clientes->MalaDireta := "S"
clientes->( DbCommit() )
clientes->( DbGoTop() )
DbEdit()
//INDEX ON Clientes->Codigo TAG Temp01 TO (arquivotmp) ;
// FOR VAL(Clientes->Codigo) >= VAL(cli1) .and. VAL(Clientes->Codigo) <= VAL(cli2) .and.;
// Clientes->MalaDireta=="S" .and. Clientes->Situacao==cGrupo ADDITIVE MEMORY
cOrder := [ Codigo ]
cQuery := [ VAL(Codigo) >= ] + Hb_NtoS( Val( cli1 ) ) + [ .AND. VAL( Codigo ) <= ] + Hb_NtoS( Val( cli2 ) ) + [ .AND. ] + ;
[ MalaDireta == "S" .AND. Situacao == '] + cGrupo + [']
INDEX ON &cOrder. TAG Temp01 TO (arquivotmp) FOR &cQuery. ADDITIVE MEMORY
If Leto_File( "clientes.dbf")
DbUseArea( .T., "LETO", oASAPREV:cServidorDB + "clientes", "clientes", .T. )
Else
DbCreate( oASAPREV:cServidorDB + "clientes", aField, "LETO" )
DbUseArea( .T., "LETO", oASAPREV:cServidorDB + "clientes", "clientes", .T. )
Endif
INDEX ON Clientes->Codigo TAG Temp01 TO (arquivotmp) ;
FOR VAL(Clientes->Codigo) >= VAL(cli1) .and. VAL(Clientes->Codigo) <= VAL(cli2) .and.;
Clientes->MalaDireta=="S" .and. Clientes->Situacao==cGrupo ADDITIVE MEMORY
Descrição do erro:
Error LETO/1003 : Variable does not exist CLI1
Called from ->ORDCREATE(0)
Called from TESTE.PRG->TESTE(137)
Called from ASAPREV.PRG->(b)CLASAPREV_CHAMAROTINA(559)
Called from ASAPREV.PRG->CLASAPREV:CHAMAROTINA(559)
Called from ASAPREV.PRG->(b)CLASAPREV_ASAPREV(474)
Called from ->ONCOMMAND(868)
Called from ->(b)HMAINWINDOW(255)
Called from ->HMAINWINDOW:ONEVENT(474)
Called from ->HWG_ACTIVATEMAINWINDOW(0)
Called from ->HMAINWINDOW:ACTIVATE(430)
Called from ASAPREV.PRG->CLASAPREV:ASAPREV(530)
cOrder := [ Codigo ]
cWhere := [ VAL(Codigo) >= ] + Hb_NtoS( Val( cli1 ) ) + [ .AND. VAL( Codigo ) <= ] + Hb_NtoS( Val( cli2 ) ) + [ .AND. ] + ;
[ MalaDireta == "S" .AND. Situacao == ] + FormatQuotes( cGrupo )
Function FormatQuotes( cString )
cString := StrTran( cString, '"', "'" )
cString := ["] + cString + ["]
Return cString
Begin Sequence With __BreakBlock()
leto_BeginTransaction(.T.)
IF Clientes->( DbAppend() )
IF ( lApp := NetErr() )
Break
ENDIF
ENDIF
Clientes->Codigo := "001"
clientes->Situacao := "01"
Clientes->MalaDireta := "S"
clientes->( DbRUnLock() )
IF Clientes->( DbAppend() )
IF ( lApp := NetErr() )
Break
ENDIF
ENDIF
Clientes->Codigo := "002"
clientes->Situacao := "01"
Clientes->MalaDireta := "S"
clientes->( DbRUnLock() )
//A=B //aqui é para provocar o erro
leto_CommitTransaction()
clientes->( DbGoTop() )
Recover
Alert("Erro incluindo registro(s)")
leto_Rollback()
RETURN Nil
End
DbEdit()
# Using temporary index orders [ created in Server OS temporary path ] are only possible in
mode: NO_Save_Wa = 1.
Pra mim alterar tudo seria muito trabalho tento vista outros projetos.
cQuery := ... + " ' " + cli1 + " ' " + ...
cQuery := ... + " ' " + cGrupo + " ' " + ...
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes