topic-15726

Posts: 464

Joined: Tue Mar 21, 2006 07:30 PM

Alguien ve aqui un error de sintaxis?
Posted: Thu May 28, 2009 04:51 PM

Os pongo este trozo de código, que me lleva esta tarde de cabeza,
(o estoy dormido y no lo veo, o pasa algo raro...)

* Get del nº de factura
             REDEFINE GET oGet VAR aDatos[1] ID 4013 ;
             PICTURE "999999";
             VALID BusFactura(aDatos,nTipo,oGet,oSay,oDlgCobro);
             COLOR RGB(0,0,127),RGB(153,153,153) OF oDlgCobro UPDATE

* Get del importe cobrado
             REDEFINE GET oGet VAR aDatos[2] ID 4014 ;
             PICTURE "99,999.99";
             VALID aDatos[2] > 0;
             When nTipo == 1 ;
             COLOR RGB(0,0,127),RGB(153,153,153) OF oDlgCobro UPDATE 

* Get de la fecha de cobro
             REDEFINE GET oGet VAR aDatos[3] ID 4015 ;
             PICTURE "@D";
             VALID !Empty(aDatos[3];
=======>      When nTipo == 1 ;             
             COLOR RGB(0,0,127),RGB(153,153,153) OF oDlgCobro UPDATE

* Get de la Cuenta de Cargo
             REDEFINE GET oGet VAR aDatos[4] ID 4016 ;
             PICTURE "99999999";
             VALID BusCuenta(aDatos,oSay,oDlgCobro);
             When nTipo == 1;             
             COLOR RGB(0,0,127),RGB(153,153,153) OF oDlgCobro UPDATE

* Get de la Forma de cobro
             REDEFINE GET oGet VAR aDatos[5] ID 4017 ;
             PICTURE "@!";
             When nTipo == 1 ;             
             COLOR RGB(0,0,127),RGB(153,153,153) OF oDlgCobro UPDATE

* Radios de enlace del cobro
             REDEFINE RADIO oRadio VAR nOption OF oDlgCobro UPDATE ;
             ID 4011,4012;
             When nTipo ==  ;             
             COLOR RGB(0,0,127),RGB(153,153,153)

Pues bien el la linea marcada al compilar me da un error de sintaxis When.....error E0030 (uso Verce 5.0)
¿no lo veo y en verdad hay un error ahí?

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO

ricardog

Posts: 158

Joined: Tue Oct 11, 2005 03:10 PM

Re: Alguien ve aqui un error de sintaxis?
Posted: Thu May 28, 2009 04:56 PM

Te falta un ")"

VALID !Empty(aDatos[3];
=======> When nTipo == 1 ;

!EMPTY( aDtos[3] ) ;

Pedro

Posts: 464

Joined: Tue Mar 21, 2006 07:30 PM

Re: Alguien ve aqui un error de sintaxis?
Posted: Thu May 28, 2009 04:59 PM

Acabo de verlo Ricardo

Gracias

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO

FiveTech Support Forums

Continue the discussion