PC Toledo

Código: Selecionar todos

***********************************
Static Function ImportaOrdemCompras
***********************************
*
*
Local n:=0

cRdd := RDDSETDEFAULT( "SQLMIX" )
FechaDb('oc')
AbreDb('OrdemCompras.dbf','oc',.f.)
zap

nConn := RDDINFO( RDDI_CONNECT, { "ODBC", "DBQ=C:\integro\NCX\NCX.MDB;Driver={Microsoft Access Driver (*.mdb)}" } )

IF nConn == 0
   Msginfo( "Não conectado ao servidor: ", RDDINFO( RDDI_ERRORNO ), RDDINFO( RDDI_ERROR ) )
   RETURN
ENDIF

DBUSEAREA( .T.,"SQLMIX", "select * from Compra", "nct" )
nct->(DbGoTop())

Do While nct->(!eof())
	Incluir('oc')

   oc->numero     := strzero(nct->id_CompraOrdem,6)
   oc->cod_fornec := strzero(nct->id_Fornecedor,6)
   oc->cod_fazend := strzero(nct->id_Propriedade,6)
   oc->tipopgto   := str(nct->tipopagamento,1)
  	oc->data       := nct->data
  	oc->banco      := str(nct->id_banco,3)
  	oc->agencia    := str(nct->id_agenciabancaria,5)
  	oc->conta      := str(nct->id_contacorrente,5)
 	oc->cheque     := str(nct->id_numerocheque,10)
  	oc->nf_oc      := nct->NumeroNotaFiscal
  	oc->valor      := nct->ValorUnitario
  	oc->quantidade := nct->quantidade
  	oc->total      := nct->valortotal

 	nct->(DbSkip())
	
EndDo
FechaDb('nct')
FechaDb('oc')
RddInfo(RDDI_DISCONNECT)
AbreDb('ordemcompras.dbf','oc',.t.)
RDDSETDEFAULT( cRdd )

Código: Selecionar todos

hbmk2 mdb.prg -lrddsql

Código: Selecionar todos

Error DBCMD/1015  Argument error: RDDSETDEFAULT
Called from RDDSETDEFAULT(0)
Called from IMPORTAORDEMCOMPRAS(7)

Código: Selecionar todos

#include "adordd.ch"

REQUEST ADORDD

PROCEDURE Main()

   SET DATE ANSI
   SET CENTURY ON

   USE ( hb_dirBase() + "cliente.mdb" ) VIA "ADORDD" TABLE "ContasRec"

  Cliente->(dbgobottom())
  Cliente->( Flock())
  Cliente->Limite         := 1000
  Cliente->EstadoCivil  := "CASADO"
  DbCommit()
  DbUnlock()
  USE
RETURN