Search found 346 matches

by armando.lagunas
Thu Mar 17, 2022 7:52 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: Un reto para los genios

una consulta:

700 valor a pagar
16% es iva?
4% otro impuesto?

si es así seria de la siguiente forma

700 / 1.16 = 603.45 lo que el 16% es 700 - 603.45 = 96.55
603.45 / 1.04 = 580.24 lo que el 4% es 603.45 - 580.24 = 23.21

700 - 96.55 - 23.21 = 580.24

entonces

580.24 = NETO
23.21 = 4%
96.55 ...
by armando.lagunas
Fri Feb 11, 2022 2:22 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: Procedimientos Almacenados (Store Procedure) Error

buenas colega:

como te conectas al servidor de la nube?
ODBC u otro tipo de conexión?

muestra un trozo de código en donde te conectas, así poder ayudarte

Saludos!
by armando.lagunas
Mon Nov 08, 2021 3:59 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: quiero definir fuentes que esten disponible en toda la app

Yo lo utilizo asi:

class tapp   DATA aWFont               INIT {}           //-- Array de Fonts .........endclass 

en tu programa inicial

 #Include "FiveWin.Ch"..MEMVAR oAppfunction main()&nbsp ...
by armando.lagunas
Fri Oct 29, 2021 8:23 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: Ayuda con Combobox

Buen día:

yo utilizo un Listbox con un dbf de paso en un Get normal y un botón que lo invoque.

...... REDEFINE GET oGet VAR cMaterial PICTURE "@K" ID 21 OF oDlg REDEFINE BUTTON ID 42 FILENAME "SearchReg.bmp" OF oDlg ACTION Seek_Material (oGet,400,150 )......STATIC FUNCTION Seek_Material ...
by armando.lagunas
Tue Oct 05, 2021 7:34 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: Pasar hora a minutos Mysql

hola:

lleva la hora tal cual esta en la tabla y la funcion te da los minutos de esa hora

Code: Select all | Expand


Function HoraMinuto( cHora )
 Return Val( Substr( cHora, 1, 2) ) * 60 + Val( SubStr( cHora, 4, 2) )
 


saludos
by armando.lagunas
Wed Sep 08, 2021 1:47 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: Facturas con consecutivos con acceso a varias terminales

Estimado:

lo que yo utilizo en SQL es un campo lógico (0-1) como una bandera, terminal A: toma el registro y le cambio el estado a ese campo inmediatamente a 0 (ocupado) y cuando termino los cambios realizados en el registro le devuelvo el estado 1 (Activo), entonces en la terminal B verifica el ...
by armando.lagunas
Wed Feb 03, 2021 3:34 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: Crear una tabla dinamica con un enlace externo desde fivewin

Ejemplo funcional probado con excel 2013, base de datos sql server 2012 express

como se usa:

STATIC FUNCTION TablaDinamica()LOCAL Conn, cSqlConn := "OLEDB;Provider=SQLOLEDB;Data Source=SERVER\SQLEXPRESS;Initial Catalog=VIKING_SYSTEM;User Id='user';Password='admin';"cSql := "SELECT * FROM ...
by armando.lagunas
Wed Sep 09, 2020 12:56 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: TsBrowse despliega el ::nRowPos al Refresh()

Buen dia:

prueba con esto

oBrw:gotop()
oBrw:UpStable()
oBrw:Refresh(.t.)

Saludos
by armando.lagunas
Fri Aug 21, 2020 4:56 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: Ejecutar llamada a servicio.

Hola Adolfo, solo como un tips, en mi caso genero un archivo txt y lo imprimo en una impresora de vales.

oApp:cStampa := 'cmd /C COPY .\Works\Template.txt "\\ARMANDO_PC\STAMPA TX-400" '   IF MsgYesNo("Está seguro que desea imprimir las etiquetas del pallet N° "+AllTrim(cPallet ...
by armando.lagunas
Thu Jun 04, 2020 4:20 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: Mini Printer Ethernet

Hola, para dirigir la impresión a una impresora especifica, donde <Nombre Impresora> es la que tienes definida en Windows

Code: Select all | Expand

PRINTER oPrn NAME "Etiqueta" TO <Nombre Impresora>


Saludos
by armando.lagunas
Wed May 06, 2020 8:12 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: Busqueda incremental en Dialogo

lo que pasa es que al ingresar en el get en forma directa (sin pasar por el browse), lo que escribes debes "Validarlo" con ::bChange y hacer la búsqueda en el xbrowse, me paso lo mismo hace mucho tiempo, lo cual lo sustituí con un "say" y solucione mi problema de la forma mas sencilla posible.

algo ...
by armando.lagunas
Wed May 06, 2020 4:41 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: Busqueda incremental en Dialogo

Hola, en ves de llamar otro Dialog, coloca un Say en el Dialog Principal, a mi me funciona muy bien

&nbsp;REDEFINE &nbsp;SAY oBrw:oSeek ID -11 PROMPT oBrw:cSeek &nbsp;PICTURE "@!" OF oDlg FONT xFont COLOR CLR_HRED&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp ...
by armando.lagunas
Wed May 06, 2020 4:25 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"

vi tu código, por lo visto estas usando dbCommit(), sacalos todos, ese es el primer punto a corregir, esa instrucción en redes novell produce una tremenda lentitud inexplicablemente, que en forma local no se percibe, por otro lado, el xbrowse hace búsqueda incremental desde la primera letra del ...
by armando.lagunas
Wed Apr 01, 2020 2:24 pm
Forum: FiveWin para Harbour/xHarbour
Topic:
Replies: -1
Views:

Re: xbrowse y setcheck Mr Rao please

generalmente los valores verdaderos o falsos de una base de datos son con un campo "BIT", en donde es:

0 = FALSE
1 = VERDADERO

entonces para que el check del oBrw funcione debes convertir el campo a .T. o .F.

0 = .F.
1 = .T.