HElp con XHARBOUR

HElp con XHARBOUR

Postby jorgeluisr_24 » Sat Jul 31, 2010 4:59 am

[COLOR="darkred"]NECESITO DE SU AYUDA AMIGOS:
ESTOY ELABORANDO UN PROGRAMA ... EL DETALLE DEL INCONVENIENTE ES EL SIGUIENTE ...:

TENGO EN STOCK DE ITEMS EN EL MODULO DE VENTAS .... (EJEMPLO ARTICULOS DE FERRETERÍA) DIGAMOS:[/COLOR]

COD. NOMBRE ARTICULO / CANTIDAD / PROVEEDOR. / PRECIO UNI
111 CLAVOS 1´ 100 CLAVITOS 1.00 $
[COLOR="DarkRed"]HASTA AHI BIEN QUE FIGURA COMO QUIERO...
PERO DIGAMOS QUE ESE ARTICULO TIENE VARIOS LOTES DE INGRESO
... LO QUE YO HIZE ES PONER UNA VENTANA DE MODULOS DISPONIBLES Y LA CANTIDAD QUE HABRIA = A CANTIDAD TOTAL QUE MUESTRA EL ITEM ... [/COLOR]
EJEM:
ART CANT LOTE F.VENC
111 10 123456 01/01/2020
111 50 789456 01/02/2020
111 40 789455 01/03/2020

[COLOR="darkred"]COMO PUEDEN VER .... UNO ESCOGIA EL LOTE CORRESPONDIENTE ACORDE EL CLIENTE PEDIA LA CANTIDAD (Y ESTE NO SOBREPASE LO QUE HABIA EN EL LOTE , POR QUE SINO PASABA A NEGATIVO ,((AHI ENTRA EL MEOLLO DE MI PROBLEMA)).[/COLOR]

AHORA ME PIDIERON QUE IGUAL PRESENTE LA MISMA OPCION PERO CON LA VARIACION DE QUE "SI VENDO UNA CANTIDAD SUPERIOR A LO QUE ESCOGÍ , PUES ME DESCARGUE AUTOMATICAMENTE DEL SIGUIENTE LO RESTANTE QUE CUBRA EL REQUERIMIENTO ASIMISMO IMPRIMIERA DESPLEGADO EN DOS


POR EJEMP:

PIDEN 5 CANT. DEL ITEM MENCIONADO DEL EJEMPL.

UNO ESCOGIA CUALQUIERA DE LOS 3 PORQUE CUBRE EL REQUERIMIENTO

AHORA , PIDEN 70 , QUE TENIA QUE HACER ANTES ... ESCRIBIR EL PRODUCTO ... NO CUBRIA NINGUNO DE LOS 3 , ENTONCES VOLVER A DIGITAR PERO AHORA 50 Y ESCOGER EL DE 50 , LUEGO VOLVER A DIGITAR Y ESCOGER EL DE 40 .... ASI CUBRIA MI REQUERIMIENTO , LO QUE QUIERO AHORA ES QUE A PESAR QUE EL PRIMERO NI SEGUNDO Y TERCERO CUBREN .... SE DESCAGUEN SECUENCIALMENTE ... ME DEJO ENTENDER ESPERO ...

YO DIGITO :
CLAVOS 1` => VEO 100 SI CUBRE NECESIDAD CLIENTE=> ESCOGO AL AZAR CUALQUIERA , Y CON SOLO DIGITAR ESA VEZ Y PONER ....LOS 70 , SE DESCARGUE DE ESE MODULO ESPECIAL , SECUENCIALMENTE PUES ... LOS 10 , LOS 50 Y 10 DEL TERCERO.

ASIMISMO EN LA IMPRESION DE DOCUMENTOS , PUES , ME SALGA SE UNA SOLA VEZ ASI:

[COLOR="Navy"]CASO 1 (LO QUE HACIA) LA IMPRESION :[/COLOR]

cant aRTI LOTE pRECIO
50 CLAVOS 1 ´ 789456 xxxxxX (PRIMERA DIGITACION)
20 CLAVOS 1´ 789455 xxxxxxxx (SEGUNDA DIGITACION POR QUE NO CUBRIA)

ENTONCES ASI SALIA LA IMPRESION Y QUEDABA PARA LA PROXIMA VENTA EN EL MODULO DE VENTAS Y CONSULTA DE LOTES RESPECTIVAMENTE:

COD. NOMBRE ARTICULO / CANTIDAD / PROVEEDOR. / PRECIO UNI
111 CLAVOS 1´ 30 CLAVITOS 1.00 $


ART CANT LOTE F.VENC
111 10 123456 01/01/2020
111 20 789455 01/03/2020

AHORA LO QUE QUIERO HACER QUE SEA ASI ...

EN LA IMPRESION DE DOCUMENTOS , PUES , ME SALGA SE UNA SOLA VEZ ASI:

ME PASO DE LARGO SOLO DIGITO UNA SOLA VEZ EL PRODUCTO ... I ME PASO DE LARGO ESCOGO EL PRIMERO ... (CANT =10) Y SIGO VENDIENDO...

ART CANT LOTE F.VENC
111 10 123456 01/01/2020
111 50 789456 01/02/2020
111 40 789455 01/03/2020

[COLOR="Navy"]CASO 1 (LO QUE HARA) LA IMPRESION :[/COLOR]

cant aRTI LOTE pRECIO
10 CLAVOS 1 ´ 123456 xxxxxX
50 CLAVOS 1´ 789456 xxxxxxxx
10 CLAVOS 1´ 789455 xxxxxxxx

ya no digite DOS O N VECES PARA CUBRIR LA NECESIDAD DEL CLIENTE
.................................................................................................
Y PUES PARA LA PROXIMA VENTA Y CONSULTE EL MISMO PRODUCTO DEBERIA QUEDAR ASI ....

COD. NOMBRE ARTICULO / CANTIDAD / PROVEEDOR. / PRECIO UNI
111 CLAVOS 1´ 30 CLAVITOS 1.00 $

ART CANT LOTE F.VENC
111 30 789455 01/03/2020

DISCULPEN QUE SEA TAN LARGA LA EXPLICACION , PERO ESPERO HABER SIDO LO MAS DIDACTICO POSIBLE ... ASI PUEDAN DARME UNA MANITO , SE AGRADECE DE CORAZON



Image
jorgeluisr_24
 
Posts: 2
Joined: Thu Jul 29, 2010 8:34 pm

Re: HElp con XHARBOUR

Postby Raymundo Islas M. » Sat Jul 31, 2010 6:00 am

Jorge,

Por lo que te entendi esto podria servirte :
Image
En la imagen hay 5 facturas con saldos por pagar y la suma de de ellas es de : 7,178.35
El pago que se va a realizar es de solo 5,000.00 la siguiente rutina aplica un importe que cubra el monto a pagar de la 1a,2a y 3a, y en la 4a solo el remanente y por supuesto a la 5a no le toca nada :P
Code: Select all  Expand view
static function UpdPrvPymD()
local nQ, nDepXImp := aPrvPymDt[2]                                      <== Este el total del pago ( 5,000.00 )

for nQ := 1 to len( lbPrvPymt:aArrayData )
    if nDepXImp > 0
        if lbPrvPymt:aArrayData[nQ,5] <= nDepXImp                       <== Valor de la columna SALDO
            lbPrvPymt:aArrayData[nQ,6] := lbPrvPymt:aArrayData[nQ,5]    <== Valor asignado a la columna PAGO
            nDepXImp -= lbPrvPymt:aArrayData[nQ,5]
        else
            lbPrvPymt:aArrayData[nQ,6] := nDepXImp
            nDepXImp := 0
        endif
    else
        lbPrvPymt:aArrayData[nQ,6] := 0
    endif
next
lbPrvPymt:refresh()


Ajustalo a tu browse/columnas y te puede servir.

Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 72 guests