Sub Main()
frmAux.Descargar
Set lFra = gcn.Obj.DameObjStr("Factura_Acreedor")
lIdProveedor = InputBox("Indique Proveedor:")
If Len(lIdProveedor)= 0 Then
Exit Sub
End If
lImporte = InputBox("Indique Importe:")
If Len(lImporte) = 0 Then
Exit Sub
End If
lCuenta = InputBox("Indique Cuenta Contable:")
If Len(lCuenta) = 0 Then
Exit Sub
End If
lIdContacto = gcn.damevalorcampo("SELECT TOP 1 IdContacto FROM Prov_Contactos WHERE idTipo=0 AND IdProveedor = '" & lIdProveedor & "'")
lFra.Propiedades("IdProveedor") = lIdProveedor
lFra.Propiedades("IdContactoF") = lIdContacto
lFra.Propiedades("NumFactProv") = 1
lFra.Propiedades("SerieFactura") = 0
lFra.Update
Set lLinea = lFra.Objetos("Factura_Acreedor_Lineas").Add
lLinea.Propiedades("IdIva") = 0
lLinea.Propiedades("BaseEuros") = lImporte
lLinea.Update
Set lDesglose = lfra.objetos("Factura_Acreedor_Desgloses").Add
lDesglose.Propiedades("Subcuenta") = lCuenta
lDesglose.Propiedades("ImporteEuros") = lImporte / 2
lDesglose.Update
Set lDesglose = lfra.objetos("Factura_Acreedor_Desgloses").Add
lDesglose.Propiedades("Subcuenta") = lCuenta
lDesglose.Propiedades("ImporteEuros") = lImporte / 2
lDesglose.Update
lFra.Update
lFra.Show
End Sub