como cambio este codigo para red o mdi

luis cortes · Post by **luis cortes** » Wed Nov 02, 2005 8:09 pm

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 )

Post by **Antonio Linares** » Thu Nov 03, 2005 12:17 pm

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.