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