**PROGRAMA DE INGRESO DE CLIENTES
**ELABORADO POR: DANIELA JOSSELIN GONZALES URBINA
USE CLIENTE INDEX ORDN_CLI
SET DECIMALS TO 2
DO WHILE .T.
CLEAR
@0,0 SAY SYS(5)+'SAKURA\10.JPG'BITMAP STRE
@2,90 SAY 'INGRESO DE CLIENTES' FONT 'ARIAL BLACK',18 STYLE 'BS'
VN_CLI=0
@6,20 SAY 'INGRESE NUMERO DEL CLIENTE'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VN_CLI FONT 'ARIAL BLACK',10 STYLE 'BI'
READ
IF LASTKEY ()=27
EXIT
ENDIF
IF VN_CLI=0 WAIT WINDOW 'DATO VACIO'
LOOP
ENDIF
GO TOP
SEEK VN_CLI
IF FOUND() WAIT WINDOW 'NUMERO DE CLIENTE YA ESTA REGISTRADO'
LOOP
ENDIF
STORE 0 TO VID,VTEL,VMOVIL,VT_TRAB,VS_MEN,VO_ING,VT_ING,VID_CONY,VS_CONY
STORE SPACE (30) TO …ver más…

H VS_MEN
REPLACE OTRS_ING WITH VO_ING
REPLACE TOTAL_ING WITH VT_ING
REPLACE REF_COMER WITH VREF_COMER
REPLACE REF_BANCO WITH VREF_BAN
REPLACE TIPO_CLI WITH VT_CLIENTE
CLEAR
USE ARTICULO INDEX ORDN_CLI2
STORE 0 TO VN_ART,VP_ART,VIMP,VDES,VT_PAG,VPRI,VPLA,VS_ACT,VC_MEN
STORE SPACE (30) TO VARTI,VT_ART
VF_COM=CTOD(' / / ')
VF_C_P=CTOD(' / / ')
@0,0 SAY SYS(5 )+'SAKURA\9.JPG' BITMAP STRE
@6,90 SAY 'INGRESO DE CLIENTES' FONT 'ARIAL BLACK',18 STYLE 'BS'
@8,20 SAY 'NUMERO DE ARTICULO'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VN_ART FONT 'ARIAL BLACK',10 STYLE 'BI'
@10,20 SAY 'ARTICULO'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VARTI FONT 'ARIAL BLACK',10 STYLE 'BI'
@12,20 SAY 'F_COMPRA'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VF_COM FONT 'ARIAL BLACK',10 STYLE 'BI'
@14,20 SAY 'PRECIO_ART'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VP_ART FONT 'ARIAL BLACK',10 STYLE 'BI'
@16,20 SAY 'TIPO_ARTICULO'FONT 'ARIAL BLACK',10 STYLE 'BI'GET VT_ART FONT 'ARIAL BLACK',10 STYLE 'BI'
READ
VIMP=(12/100*VP_ART)
IF VT_CLIENTE='MAYORISTA'
VDES=(20/100*VP_ART)
ENDIF
VT_PAG=(VP_ART+VIMP-VDES)
@18,20 SAY 'IMPUESTO'FONT 'ARIAL BLACK',10 STYLE 'BI'
@18,40 SAY VIMP FONT 'ARIAL BLACK',10 STYLE 'BI'
@20,20 SAY 'DESCUENTO' FONT 'ARIAL BLACK',10 STYLE 'BI'
@20,40 SAY VDES FONT 'ARIAL BLACK',10 STYLE 'BI'
@22,20 SAY 'TOTAL_PAGAR' FONT 'ARIAL BLACK',10 STYLE 'BI'
@22,40 SAY VT_PAG FONT 'ARIAL BLACK',10 STYLE 'BI'
@24,20 SAY 'PRIMA' GET VPRI FONT 'ARIAL BLACK',10 STYLE 'BI'
READ
STORE 6 TO VPLA