06 Out 2015 21:57
07 Out 2015 09:49
Case "ADSLOCAL"
cString = "Provider=Advantage.OLEDB.1;" & _
"Mode=Share Deny None;" & _
"Show Deleted Records in DBF Tables with Advantage=False;" & _
"Data Source=" & Sistema.PathDefault & ";Advantage Server Type=ADS_Local_Server;" & _
"TableType=ADS_CDX;Security Mode=ADS_IGNORERIGHTS;" & _
"Lock Mode=Compatible;" & _
"Use NULL values in DBF Tables with Advantage=True;" & _
"Exclusive=No;Deleted=No;"
07 Out 2015 19:26
JoséQuintas escreveu:O primeiro ponto é que o driver ODBC e o driver do Harbour sejam compatíveis
JoséQuintas escreveu:drivers compatíveis a nível de dbt/fpt, índices e bloqueio de registro
JoséQuintas escreveu:"Lock Mode=Compatible;"
07 Out 2015 19:53
21 Ago 2017 01:55
21 Ago 2017 08:49
1-Localizar um produto via SELECT;
2-Bloquear o registro já que não posso bloquear a tabela porque estará aberta compartilhada;
3-Fazer a alteração do conteúdo do campo;
4-Liberar a tabela
21 Ago 2017 12:17
UPDATE TABELA WITH(ROWLOCK) SET CAMPO = 'NOVO_VALOR' WHERE CAMPO1 = 9
21 Ago 2017 13:19
Case "ADSLOCAL"
cString = "Provider=Advantage.OLEDB.1;" & _
"Mode=Share Deny None;" & _
"Show Deleted Records in DBF Tables with Advantage=False;" & _
"Data Source=" & Sistema.PathDefault & ";Advantage Server Type=ADS_Local_Server;" & _
"TableType=ADS_CDX;Security Mode=ADS_IGNORERIGHTS;" & _
"Lock Mode=Compatible;" & _
"Use NULL values in DBF Tables with Advantage=True;" & _
"Exclusive=No;Deleted=No;"
21 Ago 2017 13:23
STATIC FUNCTION ApagaLogAntigo( dDataLimite )
LOCAL cnMySql := ADOClass():New( AppcnMySqlLocal() )
cnMySql:ExecuteCmd( "DELETE FROM JPREGUSO WHERE RUINFINC < " + DateSql( dDataLimite ) )
RETURN NIL
21 Ago 2017 15:08
JoséQuintas escreveu:Outra opção seria o saldo de estoque estar em MySQL ou algo assim, e atualizar o saldo no MySQl tanto em Harbour quanto em PHP.
E usar ODBC nos dois pra isso.
21 Ago 2017 16:02