[GUFA] Hasar 330

2017-06-19 Por tema Carlos A. Cuevas (Frre) 
Hola

  Tengo una impresora hasar 330 que tiene atrasada le fecha de factura.
Quiero modificarla con el wpruf, pero me dice que ya está inicializada.

  Se puede cambiar sin tener que resetear toda la configuración?.

Atte. Carlos

-Mensaje original-
De: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] En nombre de Marcelo Colombani
Enviado el: viernes, 16 de junio de 2017 12:56
Para: GUFA List Member 
Asunto: [GUFA] Reporte con totales

Gracias, cree una funcion que cuenta una variable pública y lo llamo en ON
Entry de persona.

Esto mismo lo había intentado con una variable del reporte y no funcionó.

También hice pasar un parametro con resetea al finalizar un grupo extra que
tengo, así comienza el conteo denuevo.

Muchas gracias

Marcelo


El 16/06/2017 a las 9:30, Omar Bellio escribió:
> Y no te servirá poner una función "On Entry"/"On Exit" en la banda 
> apropiada del reporte que te cuente las personas y te devuelva el total?
> (No sé si funciona llamándola directamente desde el campo TOTAL)
>
> -Mensaje original-
> De: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] En nombre de Marcelo 
> Colombani Enviado el: viernes, 16 de junio de 2017 08:10
> Para: GUFA List Member
> Asunto: [GUFA] Reporte con totales
>
> Estimados
>
> estoy queriendo agregar en un reporte un contador y lo estoy 
> encontranlo la vuelta, paso a explicar el problema.
>
> Una tabla que tiene datos de personas y códigos por personas
>
> Juan
>
>   1.01
>
>   2.02
>
>   6.09
>
> Pedro
>
>   34.01
>
>   80.1123
>
> Los nombres están en una banda de grupo
>
> Quisiera agrega un contador de personas, al final debería decir total 2.
>
> Pero si pongo un contador me cuenta 5, uno por cada código.
>
> Desde ya gracias
>
> Gracias
>
> Marcelo
>
>
>
> ---
> This email has been checked for viruses by Avast antivirus software.
> https://www.avast.com/antivirus
>
>

[GUFA] OT leer archivo en C#

2017-04-07 Por tema Carlos A. Cuevas (Frre) 
Estimados

 

  Necesito leer un archivo de texto. Alguien me puede decir si ReadAllText y
a ReadAllLines son los correctos?.

 

Atte. Carlos

[GUFA] OT - Intellicard

2017-03-20 Por tema Carlos A. Cuevas (Frre) 
Estimados

 

  Alguien tiene experiencia con el sistema de Hasar Intellicard?.

 

  Atte. Carlos

[GUFA] Comprabantes Impresos en Hasar

2016-11-23 Por tema Carlos A. Cuevas 
Hola gente

  Tengo una impresora Hasar PL 23. Quisiera saber si puedo obtener un listado 
de comprobantes impresos con sus importes, entre dos fechas dadas.

  Desde ya muchas gracias.

Atte. Carlos

[GUFA] OT - Chat

2016-09-19 Por tema Carlos A. Cuevas 
Estimados

  Alguien tiene incorporado en sus sitios web algún producto de chat?. Alguna 
sugerencia?.

  Desde ya muchas gracias.

Atte. Carlos

[GUFA] OT Impresoras de Tarjetas Plásticas

2015-10-21 Por tema Carlos A. Cuevas 
Hola Gente

 

  Alguien tiene experiencia con impresoras de tarjetas plásticas para
credenciales?.

 

  Alguna marca que me puedan recomendar?.

 

Atte. Carlos

[GUFA] Variables de Tablas o Tablas Temporales

2014-11-13 Por tema Carlos A. Cuevas 
Hola

  Tengo una consulta que son de aproximadamente 9000 registros (20 campos).

  Que me conviene utilizar, variables de tabla o tablas temporales?. Según 
interpreto es mejor las tablas temporales.

  Aclaro la consulta es compleja y trae datos de varias tablas.

Atte. Carlos

[GUFA] Impresora Fiscal Hasar

2014-04-11 Por tema Carlos A. Cuevas 
Hola

  Que impresora me recomiendan en la línea de Hasar: la  330, 1120 o la PL 23?.

  El volumen de facturación no es alto.

  Desde ya muchas gracias.

Atte. Carlos

[GUFA] Busqueda en SQL Server

2013-12-20 Por tema Carlos A. Cuevas 
Hola
  
  Tengo una base de datos que no la administro, y es necesario encontrar un 
dato, por ejemplo:  

Quiero buscar en todas las tablas que tienen campo texto, la cadena “CAMION 2 
EJES”.

SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE data_type = 'varchar'

Hago la consulta, pero no se como evaluar el contenido de los campos TABLE_NAME 
y COLUMN_NAME. En FoxPro usaba @.

Atte. Carlos

[GUFA] fox 2.6 sobre win7 x64

2013-10-12 Por tema Carlos A. Cuevas 
Hola



  Existe alguna forma de correr un sistema en fox2.6 sobre win7 x64, sin tener 
que recurrir a una máquina virtual?.



Atte. Carlos

[GUFA] OT Lenguajes

2013-08-29 Por tema Carlos A. Cuevas 
Hola Gente



  En términos generales cual es el lenguaje que hoy por hoy reemplaza al 
vfoxpro?. Siempre hablando en ambientes de escritorio.



  Estuve mirando este sitio, donde están los indicadores mensuales: 
www.tiobe.comhttp://www.tiobe.com



  Agosto: http://gfn.unizar.es/node/5



Atte. Carlos

[GUFA] OT Lenguajes

2013-08-29 Por tema Carlos A. Cuevas 
Hola

 

  En verdad, todas las opiniones tienen su fundamento. En mi caso, estoy
pasándome a C# y la pregunta era para saber dónde anda el resto y tratar de
no equivocarme “tanto” en la elección.

 

  Muchas gracias.

 

Atte. Carlos

 

De: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] En nombre de Alejandro Paciotti
Enviado el: jueves, 29 de agosto de 2013 11:45
Para: GUFA List Member
Asunto: [GUFA] OT Lenguajes

 

Yo me estoy pasando a Ruby, y tratando de aprender el framework Ruby on
Rails.

La principal causa de esta decisión fue la observación de la comunidad, en
Septiembre del año pasado el bueno de Martín Salías nos lo recomendó y le
pregunté específicamente por la comunidad y la verdad, supero mis
expectativas. 

De hecho, se formó un grupo de rubystas en Córdoba y ya nos juntamos varias
veces personalmente e innumerable cantidad de veces por hang-out.

Hay uno de los muchachos que está trabajando free-lance para una empresa en
EEUU y consigue charlas dedicadas a todos los que se quieran sumar.

 

No se que tan diferente puede llegar a ser si uno lo compara con JAVA, PHP o
PYTHON, etc... pero por mi experiencia, la comunidad de JAVA y PHP apesta, y
ni hablar de la de Python argentina... terrible.. parecería que el pecado
original es haber nacido sin saber esos lenguajes.

 

Cada pregunta, y les aseguro que muchas son preguntas de muy novato, tiene 4
o 5 respuestas en el grupo rubysur.

 

Porque no mas Microsoft?, Creo que sería muy largo explicar los beneficios
del open source, trataré de resumirlo muy brevemente y con una sola palabra:
open source = solidaridad. Creo que es algo que está cambiando el mundo, una
revolución mundial de la que estamos siendo testigos privilegiados. 

 

Todavía tengo varios años de mantenimiento de aplicaciones hechas en FOX, y
soy un agradecido de lo que el lenguaje y su comunidad nos brindó. Hacer
aplicaciones WEB tiene muchísimo mas complejidad que aplicaciones para
escritorio, no es fácil, o al menos no lo es para mí. Yo estuve 10 años sin
desarrollar absolutamente nada y me está costando sangre, sudor y lágrimas.
Pero espero no haberme equivocado con la elección.

 

Abrazo compañeros!

 

El 29 de agosto de 2013 11:19, Oscar Obregon oobre...@rmnsrl.com.ar
escribió:

El 29/08/2013 10:55, Flores Sistemas (Pablo Flores) escribió:

 

falta la opinion de pancho

-Mensaje original- From: Pablo Pioli
Sent: Thursday, August 29, 2013 10:39 AM
To: GUFA List Member
Subject: [GUFA] OT Lenguajes

El link de Agosto esta mal, debe ser este
http://www.tiobe.com/index.php/content/paperinfo/tpci/index.html

Sobre la pregunta, depende de los gustos, pero tenes que tener en cuenta
que la mayoria de los cambios en los lenguajes actuales se estan
destinando a web o aplicaciones mobiles.
Por ejemplo WPF no recibe cambios relevantes desde ¿2009?

Para escritorio tenes C#/WPF, Java, Python y varios mas

El 29/08/2013 09:44 a.m., Carlos A. Cuevas escribió:

Hola Gente



   En términos generales cual es el lenguaje que hoy por hoy reemplaza al
vfoxpro?. Siempre hablando en ambientes de escritorio.



   Estuve mirando este sitio, donde están los indicadores mensuales:
www.tiobe.comhttp://www.tiobe.com



   Agosto: http://gfn.unizar.es/node/5



Atte. Carlos









QUE ME dicen de visual basic .net?





 

-- 
alejandro.pacio...@gmail.com

[GUFA] Emulador Hasar 330F

2013-08-27 Por tema Carlos A. Cuevas 
Hola

  Existe algún simulador de impresora fiscal hashar, como para hacer algunas 
pruebas de impresión de notas de créditos?.

  Resulta que tengo que implementar algunos cambios, y no tengo donde probar.

  Desde ya muchas gracias.

Atte. Carlos

[GUFA] Vista Mensajes Owa 2010

2013-03-04 Por tema Carlos A. Cuevas 
Hola



  En owa 2003 tenia la posibilidad de visualizar los titulos de los mensajes en 
1 o 2 lineas.

  En owa 2010, solo veo en dos líneas y no encuentro la opción para que se 
visualicen los mensajes solo en un renglón.



  Busque por todos lados pero no encuentro la opción.



Atte. Carlos

[GUFA] Informes

2007-11-27 Por tema Carlos A. Cuevas 
Hola
  Hay alguna forma de que los informes tomen la configuración de la impresora 
predeterminada en el usuario.
  Tengo el problema que hice algunos reportes nuevos y no se ven bien en 
algunos puestos.
 
  Busque de muchas formas, aclaro no toman el entorno de la impresora.
 
Atte. Carlos

-
UTN - Facultad Regional Resistencia - www.frre.utn.edu.ar

winmail.dat

[GUFA] Programación Multiusuario

2007-11-22 Por tema Carlos A. Cuevas 
Hola

  Tengo un formulario que genera presupuestos.

  Cada vez que viene un cliente asigna un numero temporal en el puesto que
se atiende.

  Si tengo tres puestos, el numero temporal puede llegar a ser igual, pero
cuando grabo tomo la precaución de que no exista ese numero grabado en la
base (uno de los operadores ya grabo antes).

 

  Existe algún documento o ejemplo a seguir para manejar adecuadamente esto.
Porque mi método no me convence.

 

Atte. Carlos


-
UTN - Facultad Regional Resistencia - www.frre.utn.edu.ar

[GUFA] Problemas con Reportes

2007-11-14 Por tema Carlos A. Cuevas 
Hola

   Tengo problemas con los informes, ya que en algunas maquinas, nos e
visualiza correctamente, y sin embargo estamos hablando del mismo informe.

 

  Atte. Carlos

[GUFA] Foxpro 2.5 y en server 2003

2007-10-12 Por tema Carlos A. Cuevas 
Tengo corriendo sobre 2003 server aplicaciones en cobol sin problemas. Antes
estaban todas en novell.

 

Atte. Carlos

 

De: GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] En nombre de Nicolas Arnaldo
Enviado el: Jueves, 11 de Octubre de 2007 14:39
Para: GUFA List Member
Asunto: [GUFA] Foxpro 2.5 y en server 2003

 

Que tal ? Queria hacer una consulta, en un cliente que actualmente tienen
una red novell con una aplicacion desarrollada en foxpro 2.5 dos quieren
cambiar el servidor y poner uno con windows 2003 (simplemente haria las
veces de file server). La pregunta es si alguien tiene reportado algun error
con este tipo de combinacion y si voy a tener algun problema. Muchas
gracias. 

Saludos.
Nicolas.

[GUFA] Visor PDF

2007-10-05 Por tema Carlos A. Cuevas 
Hola

  Tengo una carpeta que tiene una cantidad grande de archivos pdf.

  Lo que quiero conseguir alguna utilidad para poder buscar en los
contenidos de los archivos pdf.

 

Atte. Carlos

 

De: GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] En nombre de Gustavo Señoriño
Enviado el: Viernes, 05 de Octubre de 2007 11:21
Para: GUFA List Member
Asunto: [GUFA] Form con Botones Variable

 

Muchas Gracias Estela!! Lo voy a probar...

 

- Original Message - 

From: Estela Lázaro mailto:[EMAIL PROTECTED]  

To: GUFA List Member mailto:GUFA@mug.org.ar  

Sent: Thursday, October 04, 2007 8:37 PM

Subject: [GUFA] Form con Botones Variable

 

Hola, yo que todavía ando con el vfp7 para la mayoría de mis proyectos, creo
una clase con sus métodos y agrego el control por programa, en el ejemplo
que te paso es un textbox vos tendrías que basarlo en un command, algo así:

 

Define Class MiText1 As TextBox

 Procedure InteractiveChange
  Thisform.lcambia=.T.
 Endproc

 

 Procedure RightClick
  This.Parent.Parent.RightClick()
 Endproc

 

 Procedure LostFocus
  Thisform.lcambia=.F.
 Endproc

 

 Procedure Valid
  Local llretval,cpo,colP,colV,colT,estacol
  llretval=.T.
  If Thisform.lcambia
   If This.Value0
=Messagebox(No puede ser negativo)
llretval=.F.
   Endif
  Endif
  Return llretval
 Endproc


 Procedure Click
  This.SetFocus

 Endproc

 


Enddefine

y en el form agrego el control, acá es una columna en la grilla con el
textbox basado en la clase anterior, el tuyo debe ser menos complicado, te
lo paso igual por si te sirve:

 

i=8 thisform.pgf.pg2.grdlist.ColumnCount 

j=0
bacolor1=200 arranca con RGB(200,250,255)
bacolor2=300

SELECT quintero
go top 
DO WHILE !EOF()
  Thisform.pgf.pg2.grdlist.ColumnCount=i+1
  bacolor2=bacolor2-50
  IF bacolor20
   bacolor2=250
   bacolor1=bacolor1-50
  endif
  j=j+1
  i=i+1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.Header1.Caption='In
g +ALLTRIM(LEFT(quintero.nombre,20))+'
  cpo1
*!*
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.ControlSource='_ctm
p_liqui.quinI+ALLTRIM(STR(j))+'
*!*   cpo1
  cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.Width=60
  cpo1
  cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.ReadOnly=.f.
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.InputMask='99.9
9'
  cpo1

 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.AddObject('TextI','
MiText1')
  cpo1
  cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.CurrentControl
='TextI'
  cpo1
*
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.BackColor=RGB(+ALL
TRIM(STR(bacolor1))+,+ALLTRIM(STR(bacolor2))+,255)
 
cpo1=thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.DynamicBackColor='I
IF(ALLTRIM(_ctmp_liqui.lote)=+;
 
'Totales'+,RGB(209,168,255),RGB(+ALLTRIM(STR(bacolor1))+,+ALLTRIM(STR(
bacolor2))+,255))'
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.Header1.BackColor=R
GB(+ALLTRIM(STR(bacolor1))+,+ALLTRIM(STR(bacolor2))+,255)
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.ReadOnly=.f.
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.Enabled=.t.
  cpo1
  cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.Format='kz'
  cpo1
  cpo1=T
hisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.BorderStyle=0
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.Format='kz'
  cpo1
  cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.Value=0
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.InputMask='99
.99'
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.Visible=.t.
  cpo1
skip

enddo

 

Cualquier cosa, avisame.

 

Estela


Ricardo Aidelman [EMAIL PROTECTED] escribió:

Suponiendo que lo estas ejecutando desde un form, agregá el método
Thisform.MiFuncion, con el siguiente código:


AEvents( laEvents, 0 )
loObj = laEvents[ 1 ]

ExecScript( loObj.cCommand )


Y utilizá BindEvent() para atrapar el click de cada boton


*
Do While !Eof(mitabla)

cNombre = mitabla.nombre
nTop = mitabla.top
nLeft = mitabla.left
cCommand = mitabla.comando

* simulemos el contenido del campo memo de tu tabla

TEXT To lcCommand NoShow TextMerge
Try

Create Cursor MiCursor ( UnCampo C(10) )
For i = 1 To 10
Insert Into MiCursor Values ( Sys(2015) )
Endfor

Browse Last

=Messagebox( Ya ejecute el codigo )

Error Esto es a propósito

=Messagebox( Esto no se ejecuta )

Catch To oErr
=Messagebox( Se produjo un error + Chr(13) + oErr.Message
)

Finally
If Used( MiCursor )
Use In MiCursor
Endif
Endtry
ENDTEXT

Thisform.AddObject(cNombre, CommandButton)

loObj = Thisform.cNombre
loObj.Top = nTop
loObj.Left = nLeft
AddProperty( loObj, cCommand, lcCommand )
loObj.Visible = .T.

Bindevent( loObj, Click, Thisform, MiFuncion )

Enddo
***

Salu2


ricardo aidelman (socio 1545)
praxis computación
buenos aires
argentina

-Mensaje original-
De:

[GUFA] Visor PDF

2007-10-05 Por tema Carlos A. Cuevas 
gracias

 

De: GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] En nombre de Luis Dalmasso
Enviado el: viernes, 05 de octubre de 2007 13:05
Para: GUFA List Member
Asunto: [GUFA] Visor PDF

 

para tu suerte si existe hay una herramienta que se llama pdf2word, permite
trabajar en modo batch y con muchas opciones desde la linea de comando seria
(extraido de la ayuda)

Usage: PDF2RTF [Option] PDF File [RTF File]
-f page number : First page to be converted
-l page number : Last page to be converted
-z zoom ratio  : Set zoom ratio when conversion, the range is from 50 to
200 
-b space number: Space between characters
-q   : Exit after converting
-m   : Run without window
-r   : Overwrite an existing destination file without prompting
to confirm 
-h or -? : Print usage information
-i input PDF file name  : PDF file will be converted
-o output RTF file name : RTF file will be generated

For example : 
PDF2RTF -i c:\a.pdf
PDF2RTF -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -f 5 -l 8 -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf
PDF2RTF -q -m -r -b 50 -f 1 -l 1 -i c:\a.pdf -o c:\a.rtf 
 

de esta manera covertirias a RTF temporariamente tus pdf buscas el texto y
luego eliminas

 

Saludos

Luis Dalmasso

 

 

 

2007/10/5, Carlos A. Cuevas [EMAIL PROTECTED]:

Hola

  Tengo una carpeta que tiene una cantidad grande de archivos pdf.

  Lo que quiero conseguir alguna utilidad para poder buscar en los
contenidos de los archivos pdf.

 

Atte. Carlos

 

De: GUFA@mug.org.ar [mailto: GUFA@mug.org.ar mailto:GUFA@mug.org.ar ] En
nombre de Gustavo Señoriño
Enviado el: Viernes, 05 de Octubre de 2007 11:21
Para: GUFA List Member
Asunto: [GUFA] Form con Botones Variable

 

Muchas Gracias Estela!! Lo voy a probar...

 

- Original Message - 

From: Estela Lázaro mailto:[EMAIL PROTECTED]  

To: GUFA mailto:GUFA@mug.org.ar  List Member 

Sent: Thursday, October 04, 2007 8:37 PM

Subject: [GUFA] Form con Botones Variable

 

Hola, yo que todavía ando con el vfp7 para la mayoría de mis proyectos, creo
una clase con sus métodos y agrego el control por programa, en el ejemplo
que te paso es un textbox vos tendrías que basarlo en un command, algo así: 

 

Define Class MiText1 As TextBox

 Procedure InteractiveChange
  Thisform.lcambia=.T.
 Endproc

 

 Procedure RightClick
  This.Parent.Parent.RightClick()
 Endproc

 

 Procedure LostFocus
  Thisform.lcambia=.F.
 Endproc

 

 Procedure Valid
  Local llretval,cpo,colP,colV,colT,estacol
  llretval=.T.
  If Thisform.lcambia
   If This.Value0
=Messagebox(No puede ser negativo)
llretval=.F.
   Endif 
  Endif
  Return llretval
 Endproc


 Procedure Click
  This.SetFocus

 Endproc

 


Enddefine

y en el form agrego el control, acá es una columna en la grilla con el
textbox basado en la clase anterior, el tuyo debe ser menos complicado, te
lo paso igual por si te sirve:

 

i=8 thisform.pgf.pg2.grdlist.ColumnCount 

j=0
bacolor1=200 arranca con RGB(200,250,255)
bacolor2=300

SELECT quintero
go top 
DO WHILE !EOF()
  Thisform.pgf.pg2.grdlist.ColumnCount=i+1
  bacolor2=bacolor2-50
  IF bacolor20
   bacolor2=250
   bacolor1=bacolor1-50
  endif
  j=j+1
  i=i+1 
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.Header1.Caption='In
g +ALLTRIM(LEFT(quintero.nombre,20))+'
  cpo1
*!*   cpo1=Thisform.pgf.pg2.grdlist.Column
+ALLTRIM(STR(i))+.ControlSource='_ctmp_liqui.quinI+ALLTRIM(STR(j))+'
*!*   cpo1
  cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.Width=60
  cpo1
  cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.ReadOnly=.f.
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.InputMask='99.9
9 '
  cpo1

 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.AddObject('TextI','
MiText1')
  cpo1
  cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.CurrentControl
='TextI' 
  cpo1
*
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.BackColor=RGB(+ALL
TRIM(STR(bacolor1))+,+ALLTRIM(STR(bacolor2))+,255)
  cpo1=thisform.pgf.pg2.grdlist.Column
+ALLTRIM(STR(i))+.DynamicBackColor='IIF(ALLTRIM(_ctmp_liqui.lote)=+;
 
'Totales'+,RGB(209,168,255),RGB(+ALLTRIM(STR(bacolor1))+,+ALLTRIM(STR(
bacolor2))+,255))' 
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.Header1.BackColor=R
GB(+ALLTRIM(STR(bacolor1))+,+ALLTRIM(STR(bacolor2))+,255)
  cpo1
  cpo1=
Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.ReadOnly=.f.
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.Enabled=.t.
  cpo1
  cpo1= Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.Format='kz'
  cpo1
  cpo1=T
hisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.BorderStyle=0
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.Format='kz'
  cpo1
  cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.Value=0
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.InputMask='99
.99'
  cpo1
 
cpo1=Thisform.pgf.pg2.grdlist.Column+ALLTRIM(STR(i))+.TextI.Visible=.t. 
  cpo1
skip