Soy nueva en este foro

[Rosita]

Hola amigos me llamo Rosa maria y soy nueva en este foro que me encontre navegando en google y me llamo la atencion que existe foro de clipper que espero sea de mi agrado y reciba buenas respuestas
Actualmente tengo aplicaciones en clipper que quiero migrar a fivewin que no se como funciona pero espero aprender rapidamente a usarlo y por el momento no cuento con esa herramienta,solo quiero detallar mas mis programas a mis clientes y dejarlo a su gusto y luego migrar a fivewin .
Por ahora necesito la ayuda de ustedes amigos una funcioncita que los usuarios pueda personalizar a su gusto el sistema

tengo un get con su estructura de cuenta y un say que me muestre la mascara a xx-xx-xxx-xxxx como niveles de cuenta con sus 11 digitos y 4 niveles de cuentas

@ 1,1 say "Estructura de cuenta" get cEstructCuenta pict "2-2-3-4"

como puedo crear en mi funcion que me grabe siguiente campo la mascara xx-xx-xxx-xxxx

si alguien tan amable me regalaria una funcion que haya desarrollado contabilidad y otra funcion de como validar en mi catalago de cuenta o la misma funcion me puede servir y igual en mis reportes de balanza de comprobacion como leer por niveles de cuentas o digitos

Gracias

Rosita

[karinha]

Code: Select all  Expand view  RUN

#include "fivewin.ch"

Function Main()

   local oDlg
   local oGet1, oGet2, oGet3, oGet4
   local cVar1, cVar2, cVar3, cVar4
   local lActive := .f.
   
   cVar1 := 22334455 //0
   cVar2 := 0
   cVar3 := 0
   cVar4 := 0
   
   
   define dialog oDlg title "From Code" pixel size 300,300

   @ 10,10 get oGet1 var cVar1 PICTURE "@R 99-99-99-99" RIGHT ;
      bitmap "..\bitmaps\on.bmp" ;
      action( msginfo( "With Transparent" ) ) of oDlg pixel size 60,12 ;
      CUEBANNER "write a caption"

   @ 40,10 get oGet2 var cVar2 bitmap "..\bitmaps\on.bmp" action( msginfo( "Without Transparent" ) ) of oDlg pixel size 60,12
   @ 70,10 get oGet3 var cVar3 bitmap "..\bitmaps\chkyes.bmp" action( msginfo( "With Adjust-Transparent" ) ) of oDlg pixel size 120,12
   @ 100,10 get oGet4 var cVar4 bitmap "..\bitmaps\chkyes.bmp" ;
   action( if( lActive,oGet3:disable(),oGet3:enable()), lActive:= !lActive, oDlg:update() ) of oDlg pixel size 120,12
   
   oGet1:lBtnTransparent := .t.       // transparent button get oGet1
   
   oGet3:disable()
   oGet3:lBtnTransparent := .t.       // transparent button get oGet3
   oGet3:lAdjustBtn      := .t.       // Button Get Adjust Witdh oGet3
   oGet3:lDisColors      := .f.       // Deactive disable color
   oGet3:nClrTextDis     := CLR_WHITE // Color text disable status
   oGet3:nClrPaneDis     := CLR_BLUE  // Color Pane disable status
   
   oGet4:lAdjustBtn      := .t.
   
   activate dialog oDlg centered
 
return nil
 



[Rosita]

Code: Select all  Expand view  RUN

#include "fivewin.ch"

Function Main()

   local oDlg
   local oGet1, oGet2, oGet3, oGet4
   local cVar1, cVar2, cVar3, cVar4
   local lActive := .f.
   
   cVar1 := 22334455 //0
   cVar2 := 0
   cVar3 := 0
   cVar4 := 0
   
   
   define dialog oDlg title "From Code" pixel size 300,300

   @ 10,10 get oGet1 var cVar1 PICTURE "@R 99-99-99-99" RIGHT ;
      bitmap "..\bitmaps\on.bmp" ;
      action( msginfo( "With Transparent" ) ) of oDlg pixel size 60,12 ;
      CUEBANNER "write a caption"

   @ 40,10 get oGet2 var cVar2 bitmap "..\bitmaps\on.bmp" action( msginfo( "Without Transparent" ) ) of oDlg pixel size 60,12
   @ 70,10 get oGet3 var cVar3 bitmap "..\bitmaps\chkyes.bmp" action( msginfo( "With Adjust-Transparent" ) ) of oDlg pixel size 120,12
   @ 100,10 get oGet4 var cVar4 bitmap "..\bitmaps\chkyes.bmp" ;
   action( if( lActive,oGet3:disable(),oGet3:enable()), lActive:= !lActive, oDlg:update() ) of oDlg pixel size 120,12
   
   oGet1:lBtnTransparent := .t.       // transparent button get oGet1
   
   oGet3:disable()
   oGet3:lBtnTransparent := .t.       // transparent button get oGet3
   oGet3:lAdjustBtn      := .t.       // Button Get Adjust Witdh oGet3
   oGet3:lDisColors      := .f.       // Deactive disable color
   oGet3:nClrTextDis     := CLR_WHITE // Color text disable status
   oGet3:nClrPaneDis     := CLR_BLUE  // Color Pane disable status
   
   oGet4:lAdjustBtn      := .t.
   
   activate dialog oDlg centered
 
return nil
 



Gracias amigo,creo que no me entendio lo que quiero hacer es en mi campo get al teclear el numero de niveles me muestre en un say mascaras xx-xx-xxx-xxxx para que el usuario cuantos niveles y digitos tecleo es una funcion que me crea en mi say

get estructCuenta pict "2-2-3-4

Say XX-XX-XXX-XXXX

Gracias

[armando.lagunas]

Hola Rosita, bienvenida

lo que necesitas realizar esta en el PICTURE que es valido para el GET como para el SAY.

Code: Select all  Expand view  RUN

@ 10,10 get oGet1 var cVar1 PICTURE "@R 99-99-99-99"

saludos

[Rosita]

Hola Rosita, bienvenida

lo que necesitas realizar esta en el PICTURE que es valido para el GET como para el SAY.

Code: Select all  Expand view  RUN

@ 10,10 get oGet1 var cVar1 PICTURE "@R 99-99-99-99"

saludos

Hola armando gracias por la bienvenida,pero no es lo que necesito
mira:

si tecleo en mi get el primer campo get cta1 pict "2"
en mi say me muestre 2 "xx"
segundo campo get cta2 pict "2"
en mi say me muestre 2 x mas "xx-xx"
en tercer campo get cta3 pict "3"
en mi say me nuestre 3 x mas "xx-xx-xxx-"
en mi 4o campo get cta4 "4"
en mi say me nuestre 4 x mas "xx-xx-xxx-xxxx"

En total de x equis son 11 equis ,espero haberme dado a entener es una funcion que quiero crear para personalizar mi estructura de cuenta es como teclear en un solo campo
get estructcta pict "2-2-3-4" y en mi say de pantalla me muestre los 11 x o numericos como caracter x

alguien que hay desarollado contabilidad seguro tiene esa pequeña funcion por eso entre al foro de aqui pero no es clipper y ya pregunte ahi

Gracias

Rosita

[armando.lagunas]

rosita:

según entiendo en tu comentario, lo que necesitas es:

al teclear en el 1° get el "2", el say muestre "02"
el 2° get teclear "2", el say muestre "02-02"
el 3° get teclear "3", el say muestre "02-02-003"
el 4° get teclear "4", el say muestre "02-02-003-0004"

o el formato correcto es "02-22-223-2234" ?

según veo la estructura de tu código seria "Cuenta - Mayor - auxiliar - subauxiliar" ?

explicame un poquito mas y te preparo una función...

[Rosita]

rosita:

según entiendo en tu comentario, lo que necesitas es:

al teclear en el 1° get el "2", el say muestre "02"
el 2° get teclear "2", el say muestre "02-02"
el 3° get teclear "3", el say muestre "02-02-003"
el 4° get teclear "4", el say muestre "02-02-003-0004"

o el formato correcto es "02-22-223-2234" ?

según veo la estructura de tu código seria "Cuenta - Mayor - auxiliar - subauxiliar" ?

explicame un poquito mas y te preparo una función...

Hola amigo, solo quiero una funcion que me muestre el valor unicamente la mascara equis con su guion dado del get que se tecleo cada numero

Mi pantalla quedaria de esta forma y mas abajo una funcion que me devuelva los equis de cada numero separado con su guion xx-xx-xxx-xxxx solo eso necesito se alguien que haya desarollado contabilidad lo ha hecho esta manera

Esta es mi pantalla de como quedaria:

Estructura cuenta : 2-2-3-4
xx-xx-xxx-xxxx ----->>> Aqui una funcion de como quiero que me devuelva el valor lo x espero haberme explicado ya mas claro no se como subir una imagen

Gracias

[cnavarro]

Te pongo el codigo utilizando parte de un ejemplo de Fivewin (de un compañero) y la funcion de validacion que he realizado para obtener la máscara resultante
Bueno, el segundo GET seria un SAY (el que muestra la mascara XX.....)
Está en Fivewin y Harbour ( mi consejo es que te lances a la piscina y migres )
Saludos y bienvenida

Code: Select all  Expand view  RUN

#include "Fivewin.ch"

Function main()

 local oDlg
 local oSayA, cSayA:="Niveles:"
 local oSayB, cSayB:="Cuentas:"
 local oGetA, cGetA:=Space(50)
 local oLogo, cLogo:=".\fivewin.bmp"
 local oGroup
 local oBtnA, oBtnb
 local oGetB, cGetB:=Space(50)

 Define Dialog oDlg TITLE "Class TSKIN" PIXEL Resource "SAMPLE1" STYLE WS_POPUP
   
   REDEFINE BITMAP oLogo FILE cLogo ID 4008 OF oDlg ADJUST
   REDEFINE SAY oSayA VAR cSayA ID 4004 OF oDlg
   REDEFINE SAY oSayB VAR cSayB ID 4005 OF oDlg  
   REDEFINE GET oGetA VAR cGetA ID 4002 OF oDlg
   REDEFINE GET oGetB VAR cGetB ID 4003 OF oDlg PICTURE "9-9-9-9" VALID ValidaTots( cGetB, @cGetA )
   REDEFINE GROUP oGroup ID 4001 OF oDlg  
   REDEFINE BUTTON oBtnA ID 4006 OF oDlg Action Msginfo("OK")
   REDEFINE BUTTON oBtnB ID 4007 OF oDlg Action oDlg:End()     

   oDlg:bStart:= {|| SKIN( oDlg, "blue_skin" ) }
   
   Activate Dialog oDlg CENTERED // ON INIT oDlg:Shadow()
   
return nil

Function ValidaTots( cNiv, cMascara )
Local lSw    := .F.
Local aNivs
Local nTot   := 0
Local x
Local y
aNivs := hb_atokens( cNiv, "-" )
AEval( aNivs, { | Elem | nTot += Val( Elem ) } )
if nTot <> 11
   MsgInfo( "Total de niveles distinto de 11", "Atencion" )
else
   cMascara := ""
   For x = 1 to Len( aNivs )
       For y = 1 to Val( aNivs[ x ] )
              cMascara += "X"
       Next y
       if x < Len( aNivs )
          cMascara += "-"
       endif
   Next x
   lSw := .T.
endif
MsgInfo( cMascara )
Return lSw

 

[Rosita]

Te pongo el codigo utilizando parte de un ejemplo de Fivewin (de un compañero) y la funcion de validacion que he realizado para obtener la máscara resultante
Bueno, el segundo GET seria un SAY (el que muestra la mascara XX.....)
Está en Fivewin y Harbour ( mi consejo es que te lances a la piscina y migres )
Saludos y bienvenida

Code: Select all  Expand view  RUN

#include "Fivewin.ch"

Function main()

 local oDlg
 local oSayA, cSayA:="Niveles:"
 local oSayB, cSayB:="Cuentas:"
 local oGetA, cGetA:=Space(50)
 local oLogo, cLogo:=".\fivewin.bmp"
 local oGroup
 local oBtnA, oBtnb
 local oGetB, cGetB:=Space(50)

 Define Dialog oDlg TITLE "Class TSKIN" PIXEL Resource "SAMPLE1" STYLE WS_POPUP
   
   REDEFINE BITMAP oLogo FILE cLogo ID 4008 OF oDlg ADJUST
   REDEFINE SAY oSayA VAR cSayA ID 4004 OF oDlg
   REDEFINE SAY oSayB VAR cSayB ID 4005 OF oDlg  
   REDEFINE GET oGetA VAR cGetA ID 4002 OF oDlg
   REDEFINE GET oGetB VAR cGetB ID 4003 OF oDlg PICTURE "9-9-9-9" VALID ValidaTots( cGetB, @cGetA )
   REDEFINE GROUP oGroup ID 4001 OF oDlg  
   REDEFINE BUTTON oBtnA ID 4006 OF oDlg Action Msginfo("OK")
   REDEFINE BUTTON oBtnB ID 4007 OF oDlg Action oDlg:End()     

   oDlg:bStart:= {|| SKIN( oDlg, "blue_skin" ) }
   
   Activate Dialog oDlg CENTERED // ON INIT oDlg:Shadow()
   
return nil

Function ValidaTots( cNiv, cMascara )
Local lSw    := .F.
Local aNivs
Local nTot   := 0
Local x
Local y
aNivs := hb_atokens( cNiv, "-" )
AEval( aNivs, { | Elem | nTot += Val( Elem ) } )
if nTot <> 11
   MsgInfo( "Total de niveles distinto de 11", "Atencion" )
else
   cMascara := ""
   For x = 1 to Len( aNivs )
       For y = 1 to Val( aNivs[ x ] )
              cMascara += "X"
       Next y
       if x < Len( aNivs )
          cMascara += "-"
       endif
   Next x
   lSw := .T.
endif
MsgInfo( cMascara )
Return lSw

 

Hola Cristobal gracias por la bienvenida amigo,me llamo Rosa maria y buena imagen que tienes esta creado en fivewin ??? la imagen que muestra es exactamente lo que quiero hacer usted si me entendio amigo,pero no conozco esa funcion hb_token que es lo que hace, no se podra una funcion propia Cristobal??? es solo para adaptarlo a mi programacion clipper y dejarlo por mientras y no atrasarlos mas que por mientras me lanso a estudar fivewin el detalle como adquirir y empezar uno de prueba con una pantalla y sus menus y referente a la funcion y a la imagen es como lo quiero pero no conozo la funcion que mencione

gracias Cristobal

[cnavarro]

Esta hecho con Fivewin, hace tiempo que dejé Clipper para poder programar en 32 bits
La function hb_atokens es una funcion de Harbour ( compilador para 32 bits que sustituye a Clipper, pero que es prácticamente 100% compatible )
Aqui te adjunto el nuevo desarrollo para sustituir esa funcion

Code: Select all  Expand view  RUN

Function ValidaTots( cNiv, cMascara )
Local lSw    := .F.
Local aNivs  := {}
Local nTot   := 0
Local x
Local y
Local cCar   := ""

//aNivs := hb_atokens( cNiv, "-" )

// Para sustituir la funcion hb_atokens
cNiv    := AllTrim( cNiv )
For x = 1 to Len( cNiv )
    cCar  := ""
    cCar  := Substr( cNiv, x, 1 )
    if cCar <> "-"
       AAdd( aNivs, cCar )
    endif
Next x

AEval( aNivs, { | Elem | nTot += Val( Elem ) } )
if nTot <> 11
   MsgInfo( "Total de niveles distinto de 11", "Atencion" )
else
   cMascara := ""
   For x = 1 to Len( aNivs )
       For y = 1 to Val( aNivs[ x ] )
              cMascara += "X"
       Next y
       if x < Len( aNivs )
          cMascara += "-"
       endif
   Next x
   lSw := .T.
endif
MsgInfo( cMascara )
Return lSw
 

[Rosita]

Esta hecho con Fivewin, hace tiempo que dejé Clipper para poder programar en 32 bits
La function hb_atokens es una funcion de Harbour ( compilador para 32 bits que sustituye a Clipper, pero que es prácticamente 100% compatible )
Aqui te adjunto el nuevo desarrollo para sustituir esa funcion

Code: Select all  Expand view  RUN

Function ValidaTots( cNiv, cMascara )
Local lSw    := .F.
Local aNivs  := {}
Local nTot   := 0
Local x
Local y
Local cCar   := ""

//aNivs := hb_atokens( cNiv, "-" )

// Para sustituir la funcion hb_atokens
cNiv    := AllTrim( cNiv )
For x = 1 to Len( cNiv )
    cCar  := ""
    cCar  := Substr( cNiv, x, 1 )
    if cCar <> "-"
       AAdd( aNivs, cCar )
    endif
Next x

AEval( aNivs, { | Elem | nTot += Val( Elem ) } )
if nTot <> 11
   MsgInfo( "Total de niveles distinto de 11", "Atencion" )
else
   cMascara := ""
   For x = 1 to Len( aNivs )
       For y = 1 to Val( aNivs[ x ] )
              cMascara += "X"
       Next y
       if x < Len( aNivs )
          cMascara += "-"
       endif
   Next x
   lSw := .T.
endif
MsgInfo( cMascara )
Return lSw
 

Gracias amigo Cristobal, una duda porque en la funcion llama a @cGetA cuando solo quiero llamar a un solo get y convertirlo a equis

REDEFINE GET oGetA VAR cGetA ID 4002 OF oDlg ----->> esta por aca

en esta parte solo quiero teclear mi unico get 2-2-3-4 y la funcion VALID ValidaTots( cGetB, @cGetA ) pero aqui veo que esta tomando del primer get al principio
REDEFINE GET oGetB VAR cGetB ID 4003 OF oDlg PICTURE "2-2-3-4" VALID ValidaTots( cGetB, @cGetA )

Es que me marca error solo si tecleo unico get pict "2-2-3-4" VALID ValidaTots( cGetB, aqui que haria )

Ya compile marca error .f. y en blanco seguire intentando que hace

Gracias
Rosita

[cnavarro]

Rosa Maria, tal y como te comento en mi primer post, el otro Get, deberia ser un SAY que muestre, o guarde el resultado de la validacion
La variable del GET ( que deberia ser un SAY, la paso por "referencia" ) para que sea actualizada en la propia funcion de validacion
Esa variable es donde guardo el resultado de la creacion de la mascara
Otra posibilidad seria devolver en la funcion la cadena de la mascara y guardarla en la variable que consideres en la funcion principal, pero al ser una funcion de validacion de un GET, esa funcion ha de devolver .T. o .F.
Ah!, utilizo un fichero de recursos, por lo que en tu caso los REDEFINE tendrias que sustituirlos por @ f, c SAY... o f, c GET, etc

[ACC69]

rosita:

según entiendo en tu comentario, lo que necesitas es:

al teclear en el 1° get el "2", el say muestre "02"
el 2° get teclear "2", el say muestre "02-02"
el 3° get teclear "3", el say muestre "02-02-003"
el 4° get teclear "4", el say muestre "02-02-003-0004"

o el formato correcto es "02-22-223-2234" ?

según veo la estructura de tu código seria "Cuenta - Mayor - auxiliar - subauxiliar" ?

explicame un poquito mas y te preparo una función...

Hola amigo, solo quiero una funcion que me muestre el valor unicamente la mascara equis con su guion dado del get que se tecleo cada numero

Mi pantalla quedaria de esta forma y mas abajo una funcion que me devuelva los equis de cada numero separado con su guion xx-xx-xxx-xxxx solo eso necesito se alguien que haya desarollado contabilidad lo ha hecho esta manera

Esta es mi pantalla de como quedaria:

Estructura cuenta : 2-2-3-4
xx-xx-xxx-xxxx ----->>> Aqui una funcion de como quiero que me devuelva el valor lo x espero haberme explicado ya mas claro no se como subir una imagen

Gracias

Hola Ing. Rosi bienvenida a fivewineros ,aqui encontraras ayuda de todos los colegas con amplia experiencia no dudes en pasarte a fivewin es un compilador una herramienta excelente a pasar tus aplicaciones a windows yo tuve muchos tropiezos desde principio pero al final obtuve el resultado con todos mis pantallas en windows ,aunque realmente me falta mucha experiencia,pero ya casi supero el 70% ,pero lo principal ya la migre . Referente a tu funcion tu quieres obtener el resultado de la mascara o rellenar los ceros a la izquierda cuando teclees la cuenta 3-2-4-5 y te rellene 0003-0002-0004-0005, al parecer el Ing. Cristobal Navarro ya te dio la solucion o te falta mas detalles que no le encuentras ,cualquier duda estamos para ayudarte .

Saludos cordiales y bienvenida Ing. Rosa Maria

Atte: Adrian C. C.
acc69@hotmail.com

[Rosita]

Rosa Maria, tal y como te comento en mi primer post, el otro Get, deberia ser un SAY que muestre, o guarde el resultado de la validacion
La variable del GET ( que deberia ser un SAY, la paso por "referencia" ) para que sea actualizada en la propia funcion de validacion
Esa variable es donde guardo el resultado de la creacion de la mascara
Otra posibilidad seria devolver en la funcion la cadena de la mascara y guardarla en la variable que consideres en la funcion principal, pero al ser una funcion de validacion de un GET, esa funcion ha de devolver .T. o .F.
Ah!, utilizo un fichero de recursos, por lo que en tu caso los REDEFINE tendrias que sustituirlos por @ f, c SAY... o f, c GET, etc

Gracias mi estimado Cristobal ,por la ayuda de su funcion y su tiempo ya funciona era mi error de una variable que no le entendia y andube buscando en google algun manual de fivewin y estudiar nueva forma de programar en fivewin mientras termino unos detalles mas en mi progranmacion clipper.

Solo me faltaria una funcion mas de como rellenar los ceros al teclear la cuenta.

Gracias

Rosita

[Rosita]

rosita:

según entiendo en tu comentario, lo que necesitas es:

al teclear en el 1° get el "2", el say muestre "02"
el 2° get teclear "2", el say muestre "02-02"
el 3° get teclear "3", el say muestre "02-02-003"
el 4° get teclear "4", el say muestre "02-02-003-0004"

o el formato correcto es "02-22-223-2234" ?

según veo la estructura de tu código seria "Cuenta - Mayor - auxiliar - subauxiliar" ?

explicame un poquito mas y te preparo una función...

Hola amigo, solo quiero una funcion que me muestre el valor unicamente la mascara equis con su guion dado del get que se tecleo cada numero

Mi pantalla quedaria de esta forma y mas abajo una funcion que me devuelva los equis de cada numero separado con su guion xx-xx-xxx-xxxx solo eso necesito se alguien que haya desarollado contabilidad lo ha hecho esta manera

Esta es mi pantalla de como quedaria:

Estructura cuenta : 2-2-3-4
xx-xx-xxx-xxxx ----->>> Aqui una funcion de como quiero que me devuelva el valor lo x espero haberme explicado ya mas claro no se como subir una imagen

Gracias

Hola Ing. Rosi bienvenida a fivewineros ,aqui encontraras ayuda de todos los colegas con amplia experiencia no dudes en pasarte a fivewin es un compilador una herramienta excelente a pasar tus aplicaciones a windows yo tuve muchos tropiezos desde principio pero al final obtuve el resultado con todos mis pantallas en windows ,aunque realmente me falta mucha experiencia,pero ya casi supero el 70% ,pero lo principal ya la migre . Referente a tu funcion tu quieres obtener el resultado de la mascara o rellenar los ceros a la izquierda cuando teclees la cuenta 3-2-4-5 y te rellene 0003-0002-0004-0005, al parecer el Ing. Cristobal Navarro ya te dio la solucion o te falta mas detalles que no le encuentras ,cualquier duda estamos para ayudarte .

Saludos cordiales y bienvenida Ing. Rosa Maria

Atte: Adrian C. C.
acc69@hotmail.com

Hola mi estimado Adrian gracias por la bienvenida y gracias por alentarme a migrar mis aplicaciones a fivewin windos, la parte personalizada de la estructura de la cuenta ya me quedo claro y funciona le doy gracias al amigo Cristobal por su aportacion
Solo me faltaria una funcioncita mas de rellenar ceros como usted menciona Adrian,tendra esa funcion que me pueda proporcionar ,actualmente la captura se rellena manualmente los ceros y numeros en cada campo,tendra esa funcion que me pueda ayudar .

Gracias
Rosita