Ayuda AHORA ERP CRM

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