achafio

achafio

Bachiller Ingenieria de Sistemas e Informatica Conocimientos en lenguajes de programacion como Pascal, C++,Access, Visual Basic, Power Builder, Java, PHP, HTML; también base de datos como Access, SQL-Server, Oracle, MySql, PostGree, otros como SWISH,
 105K puntos  Perú @achafio desde - visto

Respuestas

Respuesta en a

¿Cómo tomar código ya generado?

Primero tienes que recuperar el ultimo numero generado de la tabla: SELECT max(ar_codigo) into :ll_numero FROM nombre_tabla USING sqlca; Donde ll_numero capturara el ultimo numero registrado en la tabla Posteriormente deberás incrementar en uno y ese...
Respuesta en a

Configurar Impresora - tipo de hoja

Para determinar la impresora predeterminada: PrintSetPrinter('HP 1512') Para la orientación del papel: ls_orientacion = 'datawindow.print.orientation = 1' //1:horizontal 2:vertical Para el tipo de papel personalmente utilizo el printsetup(), y ahí...
Respuesta en a

Problemas al ejecutar programa en PB

Tienes que colocar los archivos dll, si tu version es 9 son aquellos que terminan en 90 si es pb8 son los que terminan en 80, así mismo debes colocar los siguiente dll sin importar la version: libjcc.dll libjotsclnt.dll Pbodb09.ini
Respuesta en a

Consultas con dw

Primero debes crear tu datawindow, una vez creado debes agregarle un parámetro, para el where de tu select, por ejm: select ... from ... where cod_cedula = :as_cedula Donde as_cedula es el parámetro a crear. Luego en el botón Mostrar colocas:...
Respuesta en a

Pregunta sobre datawindow

Así es en el evento doubleclicked no existe ese parámetro, lo que puedes hacer es usar el parámetro row. Si el campo es cadena: ls_dato = GetItemString(row,'nombre_campo') Si el campo es numerico: ll_dato = GetItemNumber(row,'nombre_campo')
Respuesta en a

Order by

Si eso esta en un datawindow, debes verificar en la opción del menu Rows-Sort y ahí debes verificar que no exista alguna ordenación, o lo que puedes hacer es borrar el order by del select y en la opción que te mencione colocar ahí el campo a ordenar....
Respuesta en a

Eliminar registro de dos tablas al mismo tiempo

Supongo que noficio es de tipo numérico, si es así Realízala de esta manera: Integer respuestad Long noficio noficio = Long(sle_nreg.text) respuestad = messagebox("Mensaje", "Seguro de Eliminar el Reg", Exclamation!,YesNo!,2) If respuestad =1 then...
Respuesta en a

Ejecutable en power builder

Tienes que llevar los dll necesarios para power. Con eso solucionas tu problema.
Respuesta en a

Búsqueda entre dos ddlb

1) En primer lugar si creas un cursor con 15 columnas tu FECTH también debe tener 15 variables, sin embargo solo pones 2 (stado, tipo), desde ahí comienza tu error. Ahora porque declarar tantas columnas si no lo vas a utilizar. 2) No das a entender...
Respuesta en a

Como crear un código autogenerado en PB

Utiliza este código: Long ll_numero SELECT MAX(LONG(isnull(codp,0))) INTO :ll_numero FROM paciente; ll_numero +=1 sle_1.text = string(ll_numero,'P0000') Cualquier duda solo pregunta