FiveTech Software tech support forums

amigos este es mi codigo, necesito que me orienten, como cambio la linea que dice ventas1, como archivo, como para que sea leido en red, pero del tipo mdi, o sea que esta misma ventana se pueda abrir en el mismo equipo a lavez, cualquier sugerencia es bienvenida.....


FUNCTION PRG_2211()
Local oDlgEdit1
Local oFont1,oFont2,oFont3
Local OLbx1, lparametro
Local oBotones :=Array(5)
Local oCod_pro ,cCod_Pro ,oNom_Pro ,cNom_Pro
Local oCod_pago,cCod_Pago,oNom_Pago,cNom_Pago
Local oFem_fac , cFem_fac
Local oFve_fac , cFve_fac
Local oFli_fac , cFli_fac
Local oNro_fac , cNro_fac
Local oFol_Fac , cFol_Fac
Private xIva,xSubtotal,xTotal,xNeto,xDescuento,cCod_Art,cNom_Art,cItem,cPre_Art,xExento
Private oIva,oSubtotal,oTotal,oNeto,oDescuento,Ni,Archi,oNom_Art,oCod_Art,oExento

Select 11
Do While .T.
If NET_USE("M_Pago",.F.,5)
Set Index TO M_Pago1,M_Pago2
Set Order to 1
Exit
Else
ESTADO_DBF()
RETURN
Endif
Enddo

Select 07
Do While .T.
If NET_USE("M_Prov",.F.,5)
Set Index TO M_Prov1,M_Prov2
Set Order to 1
Exit
Else
ESTADO_DBF()
RETURN
Endif
Enddo

Select 05
Do While .T.
If NET_USE("M_Art",.F.,5)
Set Index to M_Art1, M_Art2
Set Order to 1
Exit
Else
ESTADO_DBF()
RETURN
Endif
Enddo

Select 10
Do While .T.
If NET_USE("M_Ciud",.F.,5)
Set Index to M_Ciud1,M_Ciud2
Set order to 1
exit
Else
ESTADO_DBF()
RETURN
Endif
Enddo

Select 90
Do While .T.
If NET_USE("Inv_Cfa1",.F.,5)
Set Index to Inv_Cfa1,Cfa_Fec1
Set order to 1
Exit
Else
ESTADO_DBF()
RETURN
Endif
Enddo

Select 91
Do While .T.
If NET_USE("Inv_Cfa2",.F.,5)
Set Index to Inv_Cfa2
Exit
Else
ESTADO_DBF()
RETURN
Endif
Enddo

Select 50 // aqui esta la situacion
Do While .T. // necesito que este archivo
If NET_USE("Venta1",.T.,5) // lo pueda llevar a mdi
zap
For i=1 to 30
Append Blank
Replace Venta1->Cod_Art with " "
Next i
exit
Else
ESTADO_DBF()
RETURN
Endif
Enddo

cFol_Fac:=0
cFem_Fac:=date()
cFve_Fac:=date()
cCod_Pro :=" "
cCod_Pago:=" "
cNro_Fac:=0
cFli_Fac:=date()
lParametro:= .t.

cCod_Art := 0
cPre_Art := 0
cItem := 0
xSubTotal := 0
xIva := 0
xNeto := 0
xExento := 0
xDescuento := 0
xTotal := 0
cPre_Art := 0
Precio := 0

Select 90
go Bottom
cFol_Fac := Inv_Cfa1->Fol_Fac + 1
go top

DEFINE Font oFont1 Name "Arial" Size 0,-12
DEFINE Font oFont2 NAME "ARIAL" SIZE 0,50 BOLD

DEFINE DIALOG oDlgEdit1 ResName "IngresoCompra" TITLE OemToAnsi("Ingreso Facturas de Compra")

Redefine BtnGet oFol_Fac Var cFol_Fac Id 101 Of oDlgEdit1 Picture "999999" No Modify
REDEFINE BtnGet oFem_Fac Var cFem_Fac Id 102 Of oDlgEdit1 ;
RESOURCE "CALENDARIO";
PICTURE "99/99/9999";
ACTION LbxDate(oFem_Fac, cFem_Fac)

REDEFINE BtnGet oFve_Fac Var cFve_Fac Id 103 Of oDlgEdit1 ;
RESOURCE "CALENDARIO";
PICTURE "99/99/9999";
ACTION LbxDate(oFve_Fac, cFve_Fac)

REDEFINE BtnGet oCod_Pro Var cCod_Pro Id 104 Of oDlgEdit1 Resource "BLIBRO";
VALID BuscaProv(cCod_Pro,cNom_Pro,oNom_pro);
Action (cCod_Pro:= BuscaProveedor(cCod_Pro) ,oCod_Pro:Refresh(),oNom_Pro :Refresh())

Redefine Say oNom_Pro Var M_Prov->Nom_Pro Id 401 Of oDlgEdit1 Picture "@!" COLOR RGB(250,5,54)

REDEFINE BtnGet oCod_Pago Var cCod_Pago Id 105 Of oDlgEdit1 Resource "BLIBRO";
VALID BuscaPag(cCod_Pago,cNom_Pago,oNom_Pago);
Action (cCod_Pago:= BuscaPago(cCod_Pago) ,oCod_Pago:Refresh(),oNom_Pago :Refresh())

Redefine Say oNom_Pago Var M_Pago->Nom_Pago Id 402 Of oDlgEdit1 Picture "@!" COLOR RGB(250,5,54)

Redefine BtnGet oNro_Fac Var cNro_Fac Id 106 Of oDlgEdit1
REDEFINE BtnGet oFli_Fac Var cFli_Fac Id 107 Of oDlgEdit1 ;
RESOURCE "CALENDARIO";
PICTURE "99/99/9999";
ACTION LbxDate(oFli_Fac, cFli_Fac)

Select 50
go top

Redefine Browse oLbx1 Id 1000 Of oDlgEdit1;
UPDATE ;
ON LEFT DBLCLICK (Arti_Compra(oLbx1), oLbx1:Refresh());
FONT oFont1;
COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,0), Rgb(200,255,200);
CELLED

Add Column To Browse oLbx1 Data Venta1->Cod_Art;
Head "Codigo" Width 80 Align 2,1;
COLORS RGB(0,0,255),RGB(255,255,224)

Add Column To Browse oLbx1 Data Venta1->Nom_Art;
Head "Descripción" Width 400 Align 0,1;
COLORS RGB(0,0,255),RGB(255,255,224)

Add Column To Browse oLbx1;
DATA FieldWBlock("Can_Art",Select("Venta1"));
EDITABLE;
3DLOOK TRUE MOVE DT_MOVE_RIGHT;
PICTURE "9999.99";
Head "Cantidad" Width 70 Align 2,1;
COLORS nRgb(0,0,0),nRgb(160,235,170);
Post Edit(Venta1->Tot_art:=Venta1->Can_Art*Venta1->Pre_Art,;
Calcula_Total(),oLbx1:Refresh())

Add Column To Browse oLbx1;
DATA FieldWBlock("Pre_Art",Select("Venta1"));
EDITABLE;
3DLOOK TRUE MOVE DT_MOVE_RIGHT;
PICTURE "99999999";
Head "Precio"+ CRLF + "Unitario" Width 70 Align 2,1;
COLORS nRgb(0,0,0),nRgb(160,235,170);
Post Edit( Venta1->Tot_art:=Venta1->Can_Art*Venta1->Pre_Art,Calcula_Total(),oLbx1:Refresh() )

Add Column To Browse oLbx1;
DATA FieldWBlock("Des_Art",Select("Venta1"));
EDITABLE;
3DLOOK TRUE MOVE DT_MOVE_RIGHT;
Post Edit( Precio:=Venta1->Pre_Art,;
precio:=Precio - Precio *(Venta1->Des_Art/100),;
Venta1->Tot_Art:=Venta1->Can_Art*Precio,;
Calcula_Total(),oLbx1:Refresh());
PICTURE "99999999";
Head "Desc." Width 60 Align 2,1;
COLORS nRgb(0,0,0),nRgb(160,235,170)

Add Column To Browse oLbx1 Data Venta1->Tot_Art;
PICTURE "@E 99,999,999";
Head "Total" Width 100 Align 2,1;
COLORS RGB(0,0,255),RGB(255,255,224)

REDEFINE Get oSubTotal Var XSubTotal Id 201 of oDlgEdit1 picture "@E 99,999,999" ;
Valid(Desc_Total(@xSubtotal,@xDescuento,@xNeto,@xExento,@xIva,@xTotal,oIva,oTotal,oNeto));
FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255)

REDEFINE Get oDescuento Var xDescuento ID 202 of oDlgEdit1 ;
Valid(Desc_Total(@xSubtotal,@xDescuento,@xNeto,@xExento,@xIva,@xTotal,oIva,oTotal,oNeto));
FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255)

REDEFINE Get oNeto Var xNeto ID 203 of oDlgEdit1 picture "@E 99,999,999" ;
Valid(Desc_Total(@xSubtotal,@xDescuento,@xNeto,@xExento,@xIva,@xTotal,oIva,oTotal,oNeto));
FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255)

REDEFINE Get oExento Var xExento ID 204 of oDlgEdit1 picture "@E 99,999,999" ;
Valid(Desc_Total(@xSubtotal,@xDescuento,@xNeto,@xExento,@xIva,@xTotal,oIva,oTotal,oNeto));
FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255)

REDEFINE Get oIva Var xIva ID 205 of oDlgEdit1 picture "@E 99,999,999" ;
Valid(Desc_Total(@xSubtotal,@xDescuento,@xNeto,@xExento,@xIva,@xTotal,oIva,oTotal,oNeto));
FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255)

REDEFINE Get oTotal Var xTotal ID 206 of oDlgEdit1 picture "@E 99,999,999";
FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255) NO MODIFY

Redefine BtnBmp oBot1 Id 1001 Resource "Editar" Of oDlgEdit1;
Action (Arti_Compra(oLbx1),;
oLbx1:GoTop(),oLbx1:Refresh());
NoBorder

Redefine BtnBmp oBot2 Id 1002 Resource "Borrar" Of oDlgEdit1;
Action (Borra_Item(oLbx1),;
oLbx1:UpsTable(),;
oLbx1:GoTop(),;
oLbx1:Refresh());
NoBorder

Redefine Button oBotones [1] Id 801 Action;
A_Com1(lparametro,;
cFol_Fac ,;
cFem_Fac ,;
cFve_Fac ,;
cCod_Pro ,;
cCod_Pago ,;
cNro_Fac ,;
cFli_Fac ,;
Xsubtotal ,;
XDescuento,;
Xneto, ;
Xexento, ;
XIva, ;
Xtotal),oDlgEdit1:End()

Redefine Button oBotones [2] Id 802 Action oDlgEdit1:End()

Redefine Button oBotones [3] Id 803 Action oDlgEdit1:End()

Activate Dialog oDlgEdit1 Centered
close database
RETURN( NIL )

Luis,

Tienes que proporcionarnos ejemplos pequeños y completos, para que podamos darte soporte técnico.

Al proporcionar mucho código fuente, se necesita mucho tiempo para revisarlo y poder orientarte.