PC Toledo

Código: Selecionar todos

Error BASE/1122  Argument error: TRANSFORM
Called from ->TRANSFORM(0)
Called from hbrowse.prg->HBROWSE:FLDSTR(2220)
Called from hbrowse.prg->HBROWSE:LINEOUT(1373)
Called from hbrowse.prg->HBROWSE:PAINT(962)
Called from hbrowse.prg->HBROWSE:ONEVENT(345)
Called from ->REDRAWWINDOW(0)
Called from hbrowse.prg->HBROWSE:REFRESH(2195)
Called from PAGAR.PRG->LANCARPARCELAS(503)
Called from PAGAR.PRG->(b)INCLUIRCPAGARPARC(449)
Called from hcontrol.prg->HBUTTON:ONCLICK(705)
Called from hcontrol.prg->(b)HBUTTON:NEW(663)
Called from hdialog.prg->DLGCOMMAND(450)
Called from hdialog.prg->(b)(_INITSTATICS00003)(0)
Called from hdialog.prg->HDIALOG:ONEVENT(218)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from hdialog.prg->HDIALOG:ACTIVATE(173)
Called from PAGAR.PRG->INCLUIRCPAGARPARC(472)
Called from PAGAR.PRG->INCLUIPAG(309)
Called from PAGAR.PRG->(b)PAGAR(56)
Called from hcontrol.prg->HBUTTON:ONCLICK(705)
Called from hcontrol.prg->(b)HBUTTON:NEW(663)
Called from hdialog.prg->DLGCOMMAND(450)
Called from hdialog.prg->(b)(_INITSTATICS00003)(0)
Called from hdialog.prg->HDIALOG:ONEVENT(218)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from hdialog.prg->HDIALOG:ACTIVATE(173)
Called from PAGAR.PRG->PAGAR(154)
Called from admfrota.prg->(b)MAIN(206)
Called from hwindow.prg->ONCOMMAND(509)
Called from hwindow.prg->(b)HMAINWINDOW(177)
Called from hwindow.prg->HMAINWINDOW:ONEVENT(272)
Called from ->HWG_ACTIVATEMAINWINDOW(0)
Called from hwindow.prg->HMAINWINDOW:ACTIVATE(260)
Called from admfrota.prg->MAIN(244)

Data e Hora........: 03/03/2010 - 11:13:43
Empresa............: empresa
Sistema/Atualizacao: sistema
Usuario do Sistema.: Marcos Roberto
Nome do Executavel.: C:\PROGS\PRINCIPAL\harbour\FROTA\ADMFROTANet.EXE
Nome do Micro......: NETSERVICE - Nome Usuario.: Marcos Roberto
Memoria Disponivel.: 2097151 - Espaço em Disco....: 102531825664
Pasta de Diretorio.: PROGS\PRINCIPAL\harbour\FROTA
Sistema Operacional: Windows XP Professional 5.01.2600 Service Pack 3
Versão xHarbour..: HwGUI 2.17 xHarbour build 1.0.0 Intl. (SimpLex)

Código: Selecionar todos

	@  11,197 BROWSE oBrwDb DATABASE SIZE 675,283 FONT HFont():Add( 'Courier New',0,-12,400,,,)

        oBrwDb:bcolorSel := x_DARKBLUE
        oBrwDb:alias := 'DBFTMP'

        oBrwDb:AddColumn( HColumn():New( "Documento" ,       FieldBlock(Fieldname(1)),"C", 15,00) ):Picture:="@!" 
        oBrwDb:AddColumn( HColumn():New( "Vencimento" ,      FieldBlock(Fieldname(3)),"D", 10,00) )
        oBrwDb:AddColumn( HColumn():New( "Valor",            FieldBlock(Fieldname(4)),"N", 12,02) ):Picture:="@E 999,999.99"
        oBrwDb:AddColumn( HColumn():New( "Observacao" ,      FieldBlock(Fieldname(6)),"C", 60,00) ):Picture:="@!"

        oBrwDb:aColumns[1]:nJusHead := DT_CENTER
        oBrwDb:aColumns[2]:nJusHead := DT_CENTER
        oBrwDb:aColumns[3]:nJusHead := DT_CENTER
        oBrwDb:aColumns[4]:nJusHead := DT_CENTER
 
        oBrwDb:aColumns[1]:lEditable := .T.
        oBrwDb:aColumns[2]:lEditable := .T.
        oBrwDb:aColumns[3]:lEditable := .T.
        oBrwDb:aColumns[4]:lEditable := .T.

Código: Selecionar todos

Static Function LancarParcelas()

Local vParcLan:=1
Local Areant:=Select()
Local vVencimento:=v1Vencimento
oCodFor:Disable()
oPlaca:Disable()
oDocumento:Disable()
oPLCONTAS:Disable()
oValorTotal:Disable()
oParcelas:Disable()
o1Vencimento:Disable()
oEmissao:Disable()
MsgRun("Criando parcelas para o contas a pagar. Aguarde...")
Do While vParcLan<=vParcelas
   Select("dbftmp")
   DbAppend()
   REPLACE DOCUMENTO   WITH vDocumento+"."+strzero(vParcLan,3)
   REPLACE VENCIMENTO  WITH vVencimento
   REPLACE Valor       WITH vValorTotal/vParcelas
   vParcLan+=1
   vVencimento:=vVencimento+30
Enddo
Fim_Run()
oBrwDb:Refresh()  //->>O ERRO OCORRE AQUI
Select(Areant)
Return .T.