Programación General > Power Builder

[Código Fuente] Sistema de Compra y Venta

<< < (6/8) > >>

pedromedina18:
de donde descargo el Power Builder  no lo encuentro esque soy primeriso en esto

manson:
alguien podria compartir el codigo para dar mantenimeinto a los botones grabar actualizareliminar
con un datawindows grid y BD SQL SERVER en power builder 10.5
se les agradese atentamente

aTxdz18:
Como dice el titulo es principalmente agradecer por este grandioso Aporte que nos dejo !! ^^ pero tengo un problema con el codigo de la funcion \"f_llenar_sql\"

en la linea 12
------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------
STRING ls_valor
GRAPHICobject ObjetoLocal

ObjetoLocal = Objeto
SetPointer ( HourGlass! )
/* Prepara el Descriptor */
PREPARE SQLSA FROM :SQLSentencia;
DESCRIBE SQLSA INTO SQLDA;
/* Declara el cursor dinámico */
DECLARE cDynCursor DYNAMIC CURSOR FOR SQLSA;
/* Abre el cursor Dinámico */
OPEN DYNAMIC cDynCursor USING DEscriptOR SQLDA;
IF ( SQLCA.SQLCode = -1 ) THEN /* Error ? */
   GOTO ERROR_SQL
END IF   
/* Obtiene el primer registro del cursor dinamico */
FETCH cDynCursor  USING DEscriptOR SQLDA;
IF ( SQLCA.SQLCode = -1 ) THEN /* Error ? */
   GOTO ERROR_SQL
END IF   
DO WHILE SQLCA.SQLCODE  = 0
      /* Determina el numero de columnas solicitadas */
      CHOOSE CASE SQLDA.NumOutPuts
         CASE 1
            /* Obtiene un solo valor de la primer columna */
            ls_valor = GetDynamicString( SQLDA 1 )
         CASE 2
            /* Concatena las 2 columnas solicitadas. Por ejemplo el identificador del registro ( primary key ) y su descripcion */
            ls_valor = GetDynamicString( SQLDA 1 )+\' \'+GetDynamicString( SQLDA 2 )
      END CHOOSE
      /* Verifica si se va a insertar un Picture
         NOTA : Sin Picture = 0. Esto es para controles que no aceptan el ico como argumento en Additem */
      IF Picture = 0 THEN ObjetoLocal. DYNAMIC Additem( ls_valor ) ELSE  ObjetoLocal. DYNAMIC Additem( ls_valor Picture )
   /* Siguiente registro del cursor dinamico */
   FETCH cDynCursor USING DEscriptOR SQLDA;
LOOP
CLOSE cDynCursor;
SetPointer ( Arrow! )
RETURN

   ERROR_SQL:
      MESSAGEBOX(\"f_llenar_sql () - Error\" SQLCA.SQLErrtext StopSign! )
      ROLLBACK USING SQLCA;
      HALT CLOSE
------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------

kamikaus:
hola este yarestaure la BD tod bien pero al momento de correrlo me sale error sobre la ventana principal .... y tampoco la puedo abrir la ventana princiapl ni en modo diseño ni nada porfavor si me puedes ayudar ando desarrollando un sistema quisa tengas algo de codigo nuevo para mi que me pueda servir GRACIAS mi msn es blackep_k17@hotmail.com Gracias1!

vicmar66:
muy bueno

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior