PROCEDIMIENTO PARA SEPARAR ENTEROS Y DECIMALES

long ll_entero,ll_mide,pos_punto,ll_decimal
dec{2} numero = 10.25


ll_entero = truncate(numero, 0)
ll_mide= len(string(numero))
pos_punto=pos(STRING(numero), '.' )
ll_decimal = long(right(string(numero), (ll_mide - pos_punto)) )

//RESULTADOS :
//ll_entero = 10
//ll_decimal = 25


CONCLUSIÓN :
Con este pequeño código podemos separar los que son enteros y decimal de un numero decimal
By G.C.

Enviar Email Usando SMTP de OUTLOOK

Enviar Correo desde Power Builder

Codigo:

//declaracion de variables necesarios 

mailSession mSes
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mObject


// Crea una sesion de correo
mSes = create mailSession

// Iniciamos sesion
mRet = mSes.mailLogon(mailNewSession!)

//Si retorna negativo manda mensaje fallido
IF mRet <> mailReturnSuccess! THEN
MessageBox("Correo", 'Logueo Fallido.')
RETURN
END IF


string recipiente1="angelo_lip_545@hotmail.com"

// Estructura del correo:
//subject es el asunto
mMsg.Subject = 'PRUEBA DE CORREO DESDE POWER BUILDER'
//notetext es el cuerpo del mensaje
mMsg.NoteText = '02/09/2016 - CORREO ENVIADO EXITOSAMENTE'

//recipient es correo de envio del mensaje
mMsg.Recipient[1].name = 'angelo_lip_545@hotmail.com'
mMsg.Recipient[2].name = 'gchavez@gcmsystem.com'


// Enviar Mensaje
mRet = mSes.mailSend(mMsg)

//Si retorna negativo o cero manda mensaje error
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail Send", 'Mail not sent')
RETURN
END IF

//salir sesion
mSes.mailLogoff()
//destruimos la sesion
DESTROY mSes

NOTA:

Recordar que el outlook tiene que estar instalado , configurado y tener una cuenta vigente
ya sea corporativa u otro

"USO DEL DEBUG" PASO POR PASO ,UN MODO DE EJECUCIÓN DETALLADO POR INSTRUCCIÓN DE CODIGO

PASOS PARA PB11.5:

• CLIC EN ESTE ICONO :

• Se Abre una ventana "DEBUGGER" en la ventana derecha despliega el windows donde se hará el debug luego especifica en que evento del objeto quieres hacer el debug como en la sgt. Imagen :

• Presiona doble clic en la linea de codigo donde hara el debug se creara un circulo rojizo o tambien dando anti clic elije "INSERT BREAKPOINT".

• Luego presionar "START ADMINISTRACION": 

Cualquier duda contactarse a : angelo_lip_545@hotmail.com y/o gilmar.chavez1994@gmail.com

ERROR AL COMPILAR O AL CREAR EJECUTABLE EN PB "linker:errors , finished errors"

SI LE SALIERA ESTE MENSAJE AL COMPILAR O CREAR .exe :

SE DEBERÁ A UN PRINCIPAL FACTOR NO ENCUENTRA ALGUNOS OBJETOS DE REFERENCIA COMO POR EJEMPLO : .jpg , .pgn , etc ESTAS IMAGENES DEBEN EXISTIR DENTRO DE LA CARPETA DE TU APLICATIVO.

SOLUCIÓN:

1- Ya que es un problema del programador se tiene que dar un chekeo a tu formularios te doy un ejemplo:

como vemos el control "picturebuthon" esta de color blanco al costado hacemos referencia a una imagen que no existe lo cual por este insignificante error del programador no se podrá crear .exe o compilar en raros casos tener cuidado.

Cualquier duda contactarse a : angelo_lip_545@hotmail.com y/o gilmar.chavez1994@gmail.com

ERROR AL AGREGAR UN SEGUNDO ARGUMENTO EN PB - "Column 2 has an invalid name and/or length"

SI LE SALIERA ESTE MENSAJE :

SE DEBERÁ ALGUNOS FACTORES TE DOY ALGUNAS SOLUCIONES CUALQUIERA DE AQUELLAS TE DEBERÁN SOLUCIONAR .

SOLUCIÓN:

1-Desahibilita en la BARRA DE TAREAS estos servicios:

*TEAM WIEVER 
*BLUETOOH

2-Sigue los pasos sgt:
  Presiona Win + R, tipea 'services.msc', presiona Enter
* Busca 'Touch Keyboard and Handwriting       Panel Service', y le das doble click
* Click a Stop
* Luego seleccionas 'disabled' en 'Startup type'
* Click Ok, Luego reiniciar el equipo.

"SERVICIO DE PANEL DE ESCRITURA A MANO Y TECLADO TACTIL". Aparentemente este servicio modifica directivas del controldor ODBC/OLEDB y hace que el motor de base de datos no interprete los parametros del retrieve de la datawindow. En 32 bits esto no ocurre. Con detener este servicio se soluciona el caso.

Cualquier duda contactarse a : angelo_lip_545@hotmail.com y/o gilmar.chavez1994@gmail.com