Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

repaso final de todos lo datos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@30 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-08-19 19:11:09 +00:00
parent 10410961ab
commit c297dd33ad
22 changed files with 2385 additions and 1257 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

643
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -3,7 +3,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy
Height = 471
Width = 448
Width = 535
object DADSCabecera: TDADataSource
DataSet = tbl_Cabecera.Dataset
DataTable = tbl_Cabecera
@ -59,22 +59,29 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
Connection = 'IBX'
SQL =
'SELECT'#10' V_ALBARANES_CLIENTE.ID, V_ALBARANES_CLIENTE.ID_EMPRESA,' +
#10' V_ALBARANES_CLIENTE.ID_CLIENTE,'#10' V_ALBARANES_CLIENTE.FECHA_A' +
'LBARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.' +
'REFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARAN' +
'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.OBSERVACIONES,'#10' V_' +
'ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.NIF_CIF, CONTACTOS.' +
'NOMBRE,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTA' +
'CTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CO' +
'NTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION' +
','#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCI' +
'A) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL,' +
' CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL'#10'FROM'#10' V_ALBARANES_CL' +
'IENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIE' +
'NTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONT' +
'ACTOS_DIRECCIONES.ID = V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V' +
'_ALBARANES_CLIENTE.ID = :ID'#10#10
'SELECT'#10' V_ALBARANES_CLIENTE.ID,'#10' V_ALBARANES_CLIENTE.ID_EMPRES' +
'A,'#10' V_ALBARANES_CLIENTE.ID_CLIENTE,'#10' V_ALBARANES_CLIENTE.NOMBR' +
'E,'#10' V_CLIENTES.NOMBRE_COMERCIAL,'#10' V_ALBARANES_CLIENTE.FECHA_AL' +
'BARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.R' +
'EFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARANE' +
'S_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.CODIGO_POSTAL,'#10' V_A' +
'LBARANES_CLIENTE.POBLACION,'#10' V_ALBARANES_CLIENTE.PROVINCIA,'#10' V' +
'_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_ALBARANES_CLIENTE.TELEF' +
'ONO,'#10' V_ALBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.OBSERVAC' +
'IONES,'#10' V_ALBARANES_CLIENTE.INCIDENCIAS,'#10' V_ALBARANES_CLIENTE.' +
'IMPORTE_TOTAL,'#10' V_ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMP' +
'RESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EM' +
'PRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRES' +
'AS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_PO' +
'STAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMPRE' +
'SAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TEL' +
'EFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL' +
'_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' ' +
'EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARANES_C' +
'LIENTE'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARA' +
'NES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.' +
'ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIENTE.I' +
'D = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -142,8 +149,68 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS'
end
item
DatasetField = 'FECHA_PREVISTA_ENVIO'
TableField = 'FECHA_PREVISTA_ENVIO'
end
item
DatasetField = 'NIF_CIF_EMPRESA'
TableField = 'NIF_CIF_EMPRESA'
end
item
DatasetField = 'NOMBRE_EMPRESA'
TableField = 'NOMBRE_EMPRESA'
end
item
DatasetField = 'RAZON_SOCIAL_EMPRESA'
TableField = 'RAZON_SOCIAL_EMPRESA'
end
item
DatasetField = 'CALLE_EMPRESA'
TableField = 'CALLE_EMPRESA'
end
item
DatasetField = 'CODIGO_POSTAL_EMPRESA'
TableField = 'CODIGO_POSTAL_EMPRESA'
end
item
DatasetField = 'POBLACION_EMPRESA'
TableField = 'POBLACION_EMPRESA'
end
item
DatasetField = 'PROVINCIA_EMPRESA'
TableField = 'PROVINCIA_EMPRESA'
end
item
DatasetField = 'TELEFONO_1_EMPRESA'
TableField = 'TELEFONO_1_EMPRESA'
end
item
DatasetField = 'FAX_EMPRESA'
TableField = 'FAX_EMPRESA'
end
item
DatasetField = 'MOVIL_1_EMPRESA'
TableField = 'MOVIL_1_EMPRESA'
end
item
DatasetField = 'EMAIL_1_EMPRESA'
TableField = 'EMAIL_1_EMPRESA'
end
item
DatasetField = 'PAGINA_WEB_EMPRESA'
TableField = 'PAGINA_WEB_EMPRESA'
end>
end>
Name = 'Informe_Cabecera'
@ -160,6 +227,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ALBARAN'
DataType = datDateTime
@ -184,32 +261,9 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'NIF_CIF'
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Size = 10
end
item
Name = 'POBLACION'
@ -222,9 +276,95 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Size = 255
end
item
Name = 'CODIGO_POSTAL'
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'RAZON_SOCIAL_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
end
item
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'FAX_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB_EMPRESA'
DataType = datString
Size = 255
end>
end
item
@ -232,25 +372,22 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
Name = 'ID_ALBARAN'
DataType = datInteger
Value = '11'
ParamType = daptInput
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' +
'.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' +
'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' +
'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' +
'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.UNIDAD_MEDIDA,'#10' ' +
' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE' +
'_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA'#10'FROM ALBARA' +
'NES_CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON (ALBARANES_CLIE' +
'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE'#10' ID_ALBARAN =' +
' :ID_ALBARAN AND (VISIBLE <> 0) AND {Where}'#10'ORDER BY ID_ALBARAN,' +
' POSICION'#10
'SELECT DET.ID, DET.ID_ALBARAN,'#10' DET.POSICION, DET.TIPO_DET' +
'ALLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as ' +
'CONCEPTO, DET.CANTIDAD,'#10' DET.IMPORTE_UNIDAD - (DET.IMPORTE' +
'_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, ' +
'DET.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCI' +
'A_PROVEEDOR'#10'FROM ALBARANES_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ' +
'ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10#10'WHERE DET.ID_ALBA' +
'RAN = :ID_ALBARAN AND {Where}'#10'ORDER BY DET.ID_ALBARAN, DET.POSIC' +
'ION;'#10
StatementType = stSQL
ColumnMappings = <
item
@ -277,10 +414,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
@ -293,6 +426,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'REFERENCIA'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end>
end>
Name = 'Informe_Detalles'
@ -314,145 +452,30 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 25
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 254
Size = 32765
end
item
Name = 'CANTIDAD'
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end>
end
item
Params = <
item
Name = 'ID_ALBARAN'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' +
'.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' +
'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' +
'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' +
'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, AL' +
'BARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFEREN' +
'CIA, ARTICULOS.FAMILIA'#10#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JO' +
'IN ARTICULOS ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICU' +
'LOS.ID)'#10'WHERE (ID_ALBARAN = :ID_ALBARAN)'#10'AND (ARTICULOS.INVENTAR' +
'IABLE = 1)'#10'ORDER BY POSICION'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_ALBARAN'
TableField = 'ID_ALBARAN'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end
item
DatasetField = 'TIPO_DETALLE'
TableField = 'TIPO_DETALLE'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'REFERENCIA'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end
item
DatasetField = 'FAMILIA'
TableField = '<unknown>'
SQLOrigin = 'FAMILIA'
end>
end>
Name = 'Informe_Detalles_Etiquetas'
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_ALBARAN'
DataType = datInteger
end
item
Name = 'POSICION'
DataType = datInteger
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 25
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 254
end
item
Name = 'CANTIDAD'
DataType = datInteger
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end>
@ -476,87 +499,71 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39460.761954919000000000
ReportOptions.LastChange = 40408.561164004630000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
'begin'
'// NombreEmpresa.Lines.Clear;'
'// NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'end;'
''
'procedure TelefonosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'begin'
'{ DatosEmpresa.Lines.Clear;'
'{ TelefonosEmpresa.Lines.Clear;'
''
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
' Cadena := '#39'tlf: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
'">;'
' DatosEmpresa.Lines.Add(Cadena);'
'}'
' Cadena := Cadena + '#39' / fax: '#39' + <frxDBCabecera."FAX_EMPRE' +
'SA">;'
' TelefonosEmpresa.Lines.Add(Cadena);'
'} '
'end;'
''
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ NombreEmpresa.Lines.Clear;'
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'}'
'end;'
''
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
'procedure DireccionEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String;'
' Cadena: String;'
'begin'
'{ ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;'
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
'{ '
' DireccionEmpresa.Lines.Clear;'
''
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
' if (<frxDBCabecera."CALLE_EMPRESA"> <> '#39#39') then'
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
'O">;'
' DireccionEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">)' +
';'
''
' DireccionEnvio.Lines.Add(ACadena);'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
' if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '#39#39') then'
' Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">;'
' if (<frxDBCabecera."POBLACION_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39', '#39' + <frxDBCabecera."POBLACION_EMPRE' +
'SA">;'
' DireccionEmpresa.Lines.Add(Cadena);'
''
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
''
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
'}'
' if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '#39#39') then'
' DireccionEmpresa.Lines.Add(<frxDBCabecera."PROVINCIA_EMPRES' +
'A">);'
'} '
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
''
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1));} '
' Memo11.Visible := (<withRefCliente> <> 0);'
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin'
' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
'end;'
''
''
'begin'
''
'end.')
ShowProgress = False
StoreInDFM = False
OnStartReport = 'frxReportOnStartReport'
OnGetValue = frxReportGetValue
Left = 145
Top = 16
end
@ -800,6 +807,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ALBARAN'
DataType = datDateTime
@ -824,32 +841,9 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'NIF_CIF'
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Size = 10
end
item
Name = 'POBLACION'
@ -862,9 +856,95 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Size = 255
end
item
Name = 'CODIGO_POSTAL'
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'RAZON_SOCIAL_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
end
item
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'FAX_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB_EMPRESA'
DataType = datString
Size = 255
end>
Params = <
item
@ -904,29 +984,29 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Size = 25
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 254
end
item
Name = 'CANTIDAD'
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_UNIDAD'
Name = 'CONCEPTO'
DataType = datString
Size = 32765
end
item
Name = 'CANTIDAD'
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'REFERENCIA'
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end>
@ -934,8 +1014,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
Name = 'ID_ALBARAN'
DataType = datInteger
Value = '11'
ParamType = daptInput
Value = ''
end>
MasterParamsMappings.Strings = (
'ID_ALBARAN=ID')

72
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -168,17 +168,16 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 759
ExplicitHeight = 439
ExplicitHeight = 406
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 751
ExplicitHeight = 411
ExplicitHeight = 378
end
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitHeight = 411
inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
Left = 0
Top = 0
@ -186,6 +185,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Height = 378
Align = alClient
BiDiMode = bdLeftToRight
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -196,31 +196,30 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 751
ExplicitHeight = 411
ExplicitHeight = 378
inherited ToolBar1: TToolBar
Width = 751
Height = 51
Height = 46
ExplicitWidth = 751
ExplicitHeight = 51
ExplicitHeight = 46
inherited ToolButton3: TToolButton
Wrap = False
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
Wrap = True
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Left = 0
Wrap = False
ExplicitLeft = 334
ExplicitTop = 0
ExplicitLeft = 0
end
inherited FontName: TJvFontComboBox
Left = 399
Top = 0
Left = 65
Top = 22
ExplicitLeft = 399
ExplicitTop = 0
end
@ -232,7 +231,13 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 0
ExplicitWidth = 122
end
inherited ToolButton13: TToolButton [7]
inherited UpDown1: TUpDown
Left = 666
Top = 0
ExplicitLeft = 666
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 0
Top = 0
Wrap = True
@ -240,52 +245,46 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 0
ExplicitHeight = 27
end
inherited UpDown1: TUpDown [8]
inherited ToolButton6: TToolButton
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton6: TToolButton
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton7: TToolButton
Left = 83
Left = 66
Top = 27
ExplicitLeft = 83
ExplicitLeft = 66
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
Left = 150
Left = 133
Top = 27
ExplicitLeft = 150
ExplicitLeft = 133
ExplicitTop = 27
end
inherited ToolButton12: TToolButton
Left = 233
Left = 216
Top = 27
ExplicitLeft = 233
ExplicitLeft = 216
ExplicitTop = 27
end
inherited ToolButton9: TToolButton
Left = 241
Left = 224
Top = 27
ExplicitLeft = 241
ExplicitLeft = 224
ExplicitTop = 27
end
inherited ToolButton10: TToolButton
Left = 386
Left = 369
Top = 27
ExplicitLeft = 386
ExplicitLeft = 369
ExplicitTop = 27
end
inherited ToolButton11: TToolButton
Left = 511
Left = 494
Top = 27
ExplicitLeft = 511
ExplicitLeft = 494
ExplicitTop = 27
end
end
@ -303,7 +302,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 51
ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 702
ExplicitWidth = 566
end
end
inherited cxGridPopupMenu: TcxGridPopupMenu
@ -320,7 +319,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitHeight = 411
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -336,7 +334,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 751
ExplicitHeight = 411
ExplicitHeight = 378
inherited pnlSup: TPanel
Width = 751
ExplicitWidth = 751
@ -351,7 +349,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitHeight = 383
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 734
ExplicitHeight = 356
ExplicitHeight = 323
Height = 323
Width = 734
end
@ -391,7 +389,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Height = 78
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 765
ExplicitHeight = 45
ExplicitHeight = 78
inherited Bevel3: TBevel
Left = 428
Top = 11

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -153,7 +153,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Left = 427
Visible = True
ExplicitLeft = 427
ExplicitWidth = 117
ExplicitWidth = 156
object TBXItem42: TTBXItem
Action = actEnviar
DisplayMode = nbdmImageAndText
@ -234,9 +234,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
object actGenerarEtiquetas: TAction
Category = 'Acciones'
Caption = 'Generar etiquetas'
Enabled = False
ImageIndex = 23
Visible = False
OnExecute = actGenerarEtiquetasExecute
OnUpdate = actGenerarEtiquetasUpdate
end

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.dfm
View File

@ -1,7 +1,5 @@
inherited fEditorAlbaranesClientePreview: TfEditorAlbaranesClientePreview
Caption = 'Previsualizar el albar'#225'n de cliente'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited TBXDock: TTBXDock

6
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm
View File

@ -1,6 +1,6 @@
inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente
Caption = 'Lista de '#243'rdenes de devoluci'#243'n a cliente'
ExplicitWidth = 320
ExplicitHeight = 538
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -49,6 +49,10 @@ inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente
inherited actGenerarFactura: TAction
Caption = 'Generar abono...'
end
inherited actGenerarEtiquetas: TAction
Enabled = False
Visible = False
end
end
inherited SmallImages: TPngImageList
PngImages = <

290
Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm
View File

@ -172,26 +172,52 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
item
Connection = 'IBX'
SQL =
'SELECT'#10' ALBARANES_PROVEEDOR.ID,'#10' ALBARANES_PROVEEDOR.ID_EMPRES' +
'A,'#10' ALBARANES_PROVEEDOR.TIPO,'#10' ALBARANES_PROVEEDOR.REFERENCIA,' +
#10' ALBARANES_PROVEEDOR.FECHA_ALBARAN,'#10' ALBARANES_PROVEEDOR.OBSE' +
'RVACIONES,'#10' CONTACTOS.NOMBRE,'#10' COALESCE(CONTACTOS_DIRECCIONES.' +
'FAX, CONTACTOS.FAX) AS FAX,'#10' ALBARANES_PROVEEDOR.PERSONA_CONTAC' +
'TO_PROV AS PERSONA_CONTACTO,'#10' PROVEEDORES_DATOS.CODIGO_ASIGNADO' +
' AS CODIGO_CLIENTE,'#10' ALBARANES_PROVEEDOR.ID_ALMACEN,'#10' COALESCE' +
'(ALMACENES.CALLE, ALBARANES_PROVEEDOR.CALLE) AS CALLE,'#10' COALESC' +
'E(ALMACENES.POBLACION, ALBARANES_PROVEEDOR.POBLACION) AS POBLACI' +
'ON,'#10' COALESCE(ALMACENES.PROVINCIA, ALBARANES_PROVEEDOR.PROVINCI' +
'A) AS PROVINCIA,'#10' COALESCE(ALMACENES.CODIGO_POSTAL, ALBARANES_P' +
'ROVEEDOR.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' ALBARANES_PROVEEDOR.' +
'PERSONA_CONTACTO AS ENTREGAR_A,'#10' ALBARANES_PROVEEDOR.IMPORTE_TO' +
'TAL'#10'FROM'#10' ALBARANES_PROVEEDOR'#10' INNER JOIN CONTACTOS ON (CONTAC' +
'TOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN PRO' +
'VEEDORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = ALBARANES_PR' +
'OVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON' +
' (CONTACTOS_DIRECCIONES.ID = ALBARANES_PROVEEDOR.ID_DIRECCION)'#10' ' +
' LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDO' +
'R.ID_ALMACEN)'#10'WHERE ALBARANES_PROVEEDOR.ID = :ID'#10#10
'SELECT'#10' V_ALBARANES_PROVEEDOR.ID,'#10' V_ALBARANES_PROVEEDOR.ID_EM' +
'PRESA,'#10' V_ALBARANES_PROVEEDOR.ID_PROVEEDOR,'#10' V_ALBARANES_PROVE' +
'EDOR.NOMBRE,'#10' V_ALBARANES_PROVEEDOR.FECHA_ALBARAN,'#10' V_ALBARANE' +
'S_PROVEEDOR.REFERENCIA,'#10' V_ALBARANES_PROVEEDOR.ID_PEDIDO,'#10' V_A' +
'LBARANES_PROVEEDOR.REF_PED_PROVEEDOR,'#10#10' CASE WHEN (ALMACENES.ID' +
' > 0)'#10' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE is ' +
'null'#10' THEN ALMACENES.NOMBRE'#10' END' +
#10' END AS NOMBRE_ALMACEN,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' ' +
' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE is null'#10' ' +
' THEN ALMACENES.CALLE'#10' ELSE V_ALBARANES' +
'_PROVEEDOR.CALLE'#10' END'#10' ELSE V_ALBARAN' +
'ES_PROVEEDOR.CALLE'#10' END as CALLE,'#10#10' CASE WHEN (ALMACENES.ID > ' +
'0)'#10' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE is nul' +
'l'#10' THEN ALMACENES.CODIGO_POSTAL'#10' ' +
' ELSE V_ALBARANES_PROVEEDOR.CODIGO_POSTAL'#10' END'#10' ' +
' ELSE V_ALBARANES_PROVEEDOR.CODIGO_POSTAL'#10' END as COD' +
'IGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN CAS' +
'E WHEN V_ALBARANES_PROVEEDOR.CALLE is null'#10' THEN' +
' ALMACENES.POBLACION'#10' ELSE V_ALBARANES_PROVEEDOR' +
'.POBLACION'#10' END'#10' ELSE V_ALBARANES_PRO' +
'VEEDOR.POBLACION'#10' END as POBLACION,'#10#10' CASE WHEN (ALMACENES.ID ' +
'> 0)'#10' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE is n' +
'ull'#10' THEN ALMACENES.PROVINCIA'#10' E' +
'LSE V_ALBARANES_PROVEEDOR.PROVINCIA'#10' END'#10' ' +
' ELSE V_ALBARANES_PROVEEDOR.PROVINCIA'#10' END as PROVINCIA,'#10#10' ' +
' CASE WHEN (ALMACENES.ID > 0)'#10' THEN CASE WHEN V_ALBAR' +
'ANES_PROVEEDOR.CALLE is null'#10' THEN ALMACENES.PER' +
'SONA_CONTACTO'#10' ELSE V_ALBARANES_PROVEEDOR.PERSON' +
'A_CONTACTO'#10' END'#10' ELSE V_ALBARANES_PRO' +
'VEEDOR.PERSONA_CONTACTO'#10' END as PERSONA_CONTACTO,'#10#10' CASE WHEN ' +
'(ALMACENES.ID > 0)'#10' THEN CASE WHEN V_ALBARANES_PROVEE' +
'DOR.CALLE is null'#10' THEN ALMACENES.TELEFONO'#10' ' +
' ELSE V_ALBARANES_PROVEEDOR.TELEFONO'#10' ' +
' END'#10' ELSE V_ALBARANES_PROVEEDOR.TELEFONO'#10' END as TE' +
'LEFONO,'#10#10' V_ALBARANES_PROVEEDOR.OBSERVACIONES,'#10' V_ALBARANES_PR' +
'OVEEDOR.IMPORTE_TOTAL,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' ' +
'EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RA' +
'ZON_SOCIAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,' +
#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EM' +
'PRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_' +
'WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARANES_PROVEEDOR'#10' LEFT ' +
'OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_ALBARANES_PROV' +
'EEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID' +
' = V_ALBARANES_PROVEEDOR.ID_ALMACEN)'#10' LEFT OUTER JOIN EMPRESAS ' +
'ON (EMPRESAS.ID = V_ALBARANES_PROVEEDOR.ID_EMPRESA)'#10'WHERE V_ALBA' +
'RANES_PROVEEDOR.ID = :ID'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -218,22 +244,10 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'CODIGO_CLIENTE'
TableField = 'CODIGO_CLIENTE'
end
item
DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
@ -250,17 +264,61 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'ENTREGAR_A'
TableField = 'ENTREGAR_A'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'REF_PED_PROVEEDOR'
TableField = 'REF_PED_PROVEEDOR'
end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'NIF_CIF_EMPRESA'
TableField = 'NIF_CIF_EMPRESA'
end
item
DatasetField = 'NOMBRE_EMPRESA'
TableField = 'NOMBRE_EMPRESA'
end
item
DatasetField = 'RAZON_SOCIAL_EMPRESA'
TableField = 'RAZON_SOCIAL_EMPRESA'
end
item
DatasetField = 'TELEFONO_1_EMPRESA'
TableField = 'TELEFONO_1_EMPRESA'
end
item
DatasetField = 'FAX_EMPRESA'
TableField = 'FAX_EMPRESA'
end
item
DatasetField = 'MOVIL_1_EMPRESA'
TableField = 'MOVIL_1_EMPRESA'
end
item
DatasetField = 'EMAIL_1_EMPRESA'
TableField = 'EMAIL_1_EMPRESA'
end
item
DatasetField = 'PAGINA_WEB_EMPRESA'
TableField = 'PAGINA_WEB_EMPRESA'
end>
end>
Name = 'Informe_Cabecera'
@ -275,12 +333,11 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
DataType = datInteger
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'REFERENCIA'
Name = 'NOMBRE'
DataType = datString
Size = 255
end
@ -289,38 +346,34 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
DataType = datDateTime
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
end
item
Name = 'NOMBRE'
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'ID_ALMACEN'
Name = 'ID_PEDIDO'
DataType = datInteger
end
item
Name = 'REF_PED_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'POBLACION'
DataType = datString
@ -332,18 +385,62 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'ENTREGAR_A'
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'RAZON_SOCIAL_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'FAX_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB_EMPRESA'
DataType = datString
Size = 255
end>
end
item
@ -358,20 +455,18 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
Connection = 'IBX'
TargetTable = 'ALBARANES_PROVEEDOR_DETALLES'
SQL =
'SELECT DET.ID, DET.ID_ALBARAN,'#10' DET.POSICION, DET.TIPO_DET' +
'ALLE,'#10' ARTICULOS.REFERENCIA, DET.CONCEPTO, DET.CANTIDAD,'#10' ' +
' DET.UNIDAD_MEDIDA, DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDA' +
'D * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, DET.IM' +
'PORTE_TOTAL,'#10' ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REF' +
'ERENCIA_PROVEEDOR,'#10' ARTICULOS.REFERENCIA_FABR as REFERENCI' +
'A_FABRICANTE'#10'FROM ALBARANES_PROVEEDOR_DETALLES DET'#10'LEFT OUTER JO' +
'IN ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN ALBAR' +
'ANES_PROVEEDOR ON (ALBARANES_PROVEEDOR.ID = DET.ID_ALBARAN)'#10'LEFT' +
' JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEEDORES.ID_ARTICU' +
'LO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_PROVEEDOR = ALB' +
'ARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE DET.ID_ALBARAN = :ID_ALBAR' +
'AN AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_ALBARAN, DET.' +
'POSICION;'#10#10
'SELECT ALBARANES_PROVEEDOR_DETALLES.ID, ALBARANES_PROVEEDOR_DETA' +
'LLES.ID_ALBARAN,'#10' ALBARANES_PROVEEDOR_DETALLES.POSICION, A' +
'LBARANES_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' ALBARANES_PROVE' +
'EDOR_DETALLES.CONCEPTO, ALBARANES_PROVEEDOR_DETALLES.CANTIDAD,'#10' ' +
' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_UNIDAD - (ALBARANES_P' +
'ROVEEDOR_DETALLES.IMPORTE_UNIDAD * (COALESCE(ALBARANES_PROVEEDOR' +
'_DETALLES.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, ALBARANES_PROV' +
'EEDOR_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA, ARTIC' +
'ULOS.FAMILIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10 +
#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON (ALBAR' +
'ANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE ID_ALB' +
'ARAN = :ID_ALBARAN'#10'ORDER BY POSICION'#10
StatementType = stSQL
ColumnMappings = <
item
@ -403,10 +498,6 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
@ -421,9 +512,9 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'REFERENCIA_FABRICANTE'
DatasetField = 'FAMILIA'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_FABRICANTE'
SQLOrigin = 'FAMILIA'
end>
end>
Name = 'Informe_Detalles'
@ -446,11 +537,6 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
DataType = datString
Size = 25
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
@ -458,12 +544,7 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
end
item
Name = 'CANTIDAD'
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@ -474,12 +555,17 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
DataType = datCurrency
end
item
Name = 'REFERENCIA_PROVEEDOR'
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FABRICANTE'
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end>

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -290,7 +290,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitTop = 51
ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 751
ExplicitWidth = 566
end
end
inherited cxGridPopupMenu: TcxGridPopupMenu

2
Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
View File

@ -249,7 +249,9 @@ object PluginContactos: TPluginContactos
end
object actGruposEmpleado: TAction
Caption = 'Categorias de empleado'
Enabled = False
ImageIndex = 4
Visible = False
OnExecute = actGruposEmpleadoExecute
end
object actAgentes: TAction

703
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -19,24 +19,31 @@ object RptFacturasCliente: TRptFacturasCliente
item
Connection = 'IBX'
SQL =
'select'#10' v_facturas_cliente.id, v_facturas_cliente.id_empresa,'#10 +
' v_facturas_cliente.referencia, v_facturas_cliente.tipo,'#10' v_' +
'facturas_cliente.fecha_factura, v_facturas_cliente.fecha_VENCIMI' +
'ENTO,'#10' v_facturas_cliente.base_imponible,'#10' v_facturas_client' +
'e.situacion, v_facturas_cliente.descuento,'#10' v_facturas_cliente' +
'.importe_descuento, v_facturas_cliente.iva,'#10' v_facturas_client' +
'e.importe_iva, v_facturas_cliente.re,'#10' v_facturas_cliente.impo' +
'rte_re, v_facturas_cliente.importe_total,'#10' v_facturas_cliente.' +
'observaciones, v_facturas_cliente.nif_cif,'#10' v_facturas_cliente' +
'.id_cliente, v_facturas_cliente.nombre,'#10' v_facturas_cliente.ca' +
'lle, v_facturas_cliente.provincia,'#10' v_facturas_cliente.poblaci' +
'on, v_facturas_cliente.codigo_postal,'#10' v_facturas_cliente.reca' +
'rgo_equivalencia, v_facturas_cliente.importe_neto,'#10' v_facturas' +
'_cliente.importe_porte, formas_pago.descripcion as FORMA_PAGO,'#10' ' +
' v_facturas_cliente.DATOS_BANCARIOS, v_facturas_cliente.RETENCI' +
'ON, v_facturas_cliente.IMPORTE_RETENCION'#10'from v_facturas_cliente' +
#10' left outer join formas_pago on (formas_pago.id = v_facturas_' +
'cliente.id_forma_pago)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
'SELECT'#10' FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.REFERENCIA, FAC' +
'TURAS_CLIENTE.FECHA_FACTURA,'#10' CASE WHEN (FACTURAS_CLIENTE.IMP' +
'ORTE_TOTAL < 0) THEN '#39'A'#39' ELSE '#39'F'#39' END AS TIPO,'#10'/*'#10' v_facturas' +
'_cliente.situacion,'#10'*/'#10' FACTURAS_CLIENTE.BASE_IMPONIBLE, FACT' +
'URAS_CLIENTE.DESCUENTO, FACTURAS_CLIENTE.IMPORTE_DESCUENTO,'#10' ' +
'FACTURAS_CLIENTE.IVA, FACTURAS_CLIENTE.IMPORTE_IVA,'#10' FACTURAS' +
'_CLIENTE.RE, FACTURAS_CLIENTE.IMPORTE_RE,'#10' FACTURAS_CLIENTE.I' +
'MPORTE_TOTAL,'#10' FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' +
'SCRIPCION AS FORMA_PAGO, FACTURAS_CLIENTE.ID_CLIENTE,'#10' FACTUR' +
'AS_CLIENTE.NIF_CIF, FACTURAS_CLIENTE.NOMBRE, FACTURAS_CLIENTE.CA' +
'LLE,'#10' FACTURAS_CLIENTE.PROVINCIA, FACTURAS_CLIENTE.CODIGO_POS' +
'TAL, FACTURAS_CLIENTE.POBLACION,'#10#10' CONTACTOS_DATOS_BANCO.TITU' +
'LAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANC' +
'O.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BA' +
'NCO.CUENTA,'#10#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA' +
', EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EM' +
'PRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as' +
' PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPR' +
'ESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EM' +
'PRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCA' +
'NTIL, EMPRESAS.LOGOTIPO'#10#10'FROM FACTURAS_CLIENTE'#10#10'LEFT JOIN EMPRES' +
'AS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_' +
'PAGO.ID = FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DA' +
'TOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = FACTURAS_CLIEN' +
'TE.ID_CLIENTE)'#10#10'WHERE FACTURAS_CLIENTE.ID = :ID'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -63,10 +70,6 @@ object RptFacturasCliente: TRptFacturasCliente
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
@ -127,37 +130,81 @@ object RptFacturasCliente: TRptFacturasCliente
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'RECARGO_EQUIVALENCIA'
TableField = 'RECARGO_EQUIVALENCIA'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
end
item
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'FORMA_PAGO'
TableField = 'FORMA_PAGO'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
DatasetField = 'TITULAR'
TableField = 'TITULAR'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
DatasetField = 'ENTIDAD'
TableField = 'ENTIDAD'
end
item
DatasetField = 'RETENCION'
TableField = 'RETENCION'
DatasetField = 'SUCURSAL'
TableField = 'SUCURSAL'
end
item
DatasetField = 'IMPORTE_RETENCION'
TableField = 'IMPORTE_RETENCION'
DatasetField = 'DC'
TableField = 'DC'
end
item
DatasetField = 'CUENTA'
TableField = 'CUENTA'
end
item
DatasetField = 'NIF_CIF_EMPRESA'
TableField = 'NIF_CIF_EMPRESA'
end
item
DatasetField = 'RAZON_SOCIAL'
TableField = 'RAZON_SOCIAL'
end
item
DatasetField = 'CALLE_EMPRESA'
TableField = 'CALLE_EMPRESA'
end
item
DatasetField = 'POBLACION_EMPRESA'
TableField = 'POBLACION_EMPRESA'
end
item
DatasetField = 'PROVINCIA_EMPRESA'
TableField = 'PROVINCIA_EMPRESA'
end
item
DatasetField = 'CODIGO_POSTAL_EMPRESA'
TableField = 'CODIGO_POSTAL_EMPRESA'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'PAGINA_WEB'
TableField = 'PAGINA_WEB'
end
item
DatasetField = 'REGISTRO_MERCANTIL'
TableField = 'REGISTRO_MERCANTIL'
end
item
DatasetField = 'LOGOTIPO'
TableField = 'LOGOTIPO'
end>
end>
Name = 'InformeFacturasCliente'
@ -168,41 +215,27 @@ object RptFacturasCliente: TRptFacturasCliente
DictionaryEntry = 'FacturasCliente_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'TIPO'
DataType = datString
Size = 1
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Name = 'TIPO'
DataType = datString
Size = 1
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
end
item
Name = 'DESCUENTO'
DataType = datFloat
@ -242,16 +275,21 @@ object RptFacturasCliente: TRptFacturasCliente
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
end
item
Name = 'NIF_CIF'
Name = 'FORMA_PAGO'
DataType = datString
Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF'
Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
@ -270,12 +308,6 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 255
DictionaryEntry = 'FacturasCliente_PROVINCIA'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_POBLACION'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
@ -283,34 +315,104 @@ object RptFacturasCliente: TRptFacturasCliente
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_POBLACION'
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
end
item
Name = 'FORMA_PAGO'
Name = 'TITULAR'
DataType = datString
Size = 255
end
item
Name = 'DATOS_BANCARIOS'
Name = 'ENTIDAD'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
end
item
Name = 'DC'
DataType = datString
Size = 15
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
end
item
Name = 'RETENCION'
DataType = datFloat
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
end
item
Name = 'LOGOTIPO'
DataType = datBlob
end>
ReadOnly = True
end
@ -331,8 +433,8 @@ object RptFacturasCliente: TRptFacturasCliente
'DAD_MEDIDA, DET.IMPORTE_UNIDAD,'#10' DET.DESCUENTO, DET.IMPORTE_T' +
'OTAL, DET.VISIBLE'#10'FROM FACTURAS_CLIENTE_DETALLES AS DET'#10'LEFT OUT' +
'ER JOIN ARTICULOS ON (ARTICULOS.ID = DET.ID_ARTICULO)'#10'WHERE DET.' +
'ID_FACTURA = :ID_FACTURA AND DET.VISIBLE = 1 AND {Where}'#10'ORDER B' +
'Y DET.ID_FACTURA, DET.POSICION;'#10
'ID_FACTURA = :ID_FACTURA AND {Where}'#10'ORDER BY DET.ID_FACTURA, DE' +
'T.POSICION;'#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -416,7 +518,7 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'CANTIDAD'
DataType = datFloat
DataType = datCurrency
end
item
Name = 'UNIDAD_MEDIDA'
@ -1441,7 +1543,7 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'CANTIDAD'
DataType = datFloat
DataType = datCurrency
end
item
Name = 'UNIDAD_MEDIDA'
@ -1492,41 +1594,27 @@ object RptFacturasCliente: TRptFacturasCliente
DictionaryEntry = 'FacturasCliente_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'TIPO'
DataType = datString
Size = 1
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Name = 'TIPO'
DataType = datString
Size = 1
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
end
item
Name = 'DESCUENTO'
DataType = datFloat
@ -1566,16 +1654,21 @@ object RptFacturasCliente: TRptFacturasCliente
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
end
item
Name = 'NIF_CIF'
Name = 'FORMA_PAGO'
DataType = datString
Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF'
Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
@ -1594,12 +1687,6 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 255
DictionaryEntry = 'FacturasCliente_PROVINCIA'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_POBLACION'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
@ -1607,34 +1694,104 @@ object RptFacturasCliente: TRptFacturasCliente
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_POBLACION'
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
end
item
Name = 'FORMA_PAGO'
Name = 'TITULAR'
DataType = datString
Size = 255
end
item
Name = 'DATOS_BANCARIOS'
Name = 'ENTIDAD'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
end
item
Name = 'DC'
DataType = datString
Size = 15
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
end
item
Name = 'RETENCION'
DataType = datFloat
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
end
item
Name = 'LOGOTIPO'
DataType = datBlob
end>
Params = <
item
@ -1687,180 +1844,185 @@ object RptFacturasCliente: TRptFacturasCliente
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto'
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39920.656640081000000000
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 40408.653188761570000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
'begin'
' DatosCliente.Lines.Clear;'
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
''
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39')'
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' +
' '#39' + <frxDBCabecera."POBLACION">);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."PROVINCIA">);'
'end;'
''
'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
'begin'
' BandaDetalles.StartNewPage := False;'
' BandaDetalles.Visible := True;'
' MemPrecio.Style := '#39'Concepto normal'#39';'
' MemCantidad.Style := '#39'Concepto normal'#39';'
' MemImpTotal.Style := '#39'Concepto normal'#39';'
' RichConcepto.Visible := True;'
''
' case <frxDBDetalles."TIPO_DETALLE"> of'
' '#39'Salto'#39': begin'
' BandaDetalles.StartNewPage := True;'
' RichConcepto.Visible := False;'
' end;'
' '#39'Titulo'#39': begin'
' MemPrecio.Style := '#39'Concepto titulo'#39';'
' MemCantidad.Style := '#39'Concepto titulo'#39';'
' MemImpTotal.Style := '#39'Concepto titulo'#39';'
' end;'
' '#39'Concepto'#39': begin'
' MemPrecio.Style := '#39'Concepto normal'#39';'
' MemCantidad.Style := '#39'Concepto normal'#39';'
' MemImpTotal.Style := '#39'Concepto normal'#39';'
' end;'
' '#39'Subtotal'#39': begin'
' MemPrecio.Style := '#39'Concepto subtotal'#39';'
' MemCantidad.Style := '#39'Concepto subtotal'#39';'
' MemImpTotal.Style := '#39'Concepto subtotal'#39';'
' end;'
' '#39'Descuento'#39': begin'
' BandaDetalles.Visible := False;'
' RichConcepto.Color := clNone;'
' end;'
' end;'
''
' RichConcepto.Color := MemImpTotal.Color;'
' RichConcepto.Frame := MemImpTotal.Frame;'
'end;'
''
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' +
'.Height - 1;'
'end;'
''
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'begin'
'{ DatosEmpresa.Lines.Clear;'
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
'">;'
' { '
' DatosEmpresa.Lines.Clear;'
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">);'
''
' Cadena := '#39#39';'
' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1">;'
' if (<frxDBCabecera."FAX"> <> '#39#39') then'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;'
' DatosEmpresa.Lines.Add(Cadena);'
'}'
'end;'
''
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ NombreEmpresa.Lines.Clear;'
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'}'
'end;'
''
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String;'
'begin'
'{ ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;'
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
''
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
' Cadena := '#39#39';'
' if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '#39#39') then'
' Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">;'
' if (<frxDBCabecera."POBLACION_EMPRESA"> <> '#39#39') then'
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
'O">;'
''
' DireccionEnvio.Lines.Add(ACadena);'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
''
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
''
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
'}'
' Cadena := Cadena + '#39' '#39' + <frxDBCabecera."POBLACION_EMPRES' +
'A">;'
' if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' - '#39' + <frxDBCabecera."PROVINCIA_EMPR' +
'ESA">;'
' DatosEmpresa.Lines.Add(Cadena);'
' } '
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Memo15.Lines.Clear;'
' if (StrToFloat(<frxDBCabecera."BASE_IMPONIBLE">) < 0) then'
' Memo15.Lines.Add('#39'ABONO'#39')'
' else'
' Memo15.Lines.Add('#39'FACTURA'#39')'
'end;'
''
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
' begin'
' Memo21.Lines.Clear;'
' Memo29.Lines.Clear;'
' end;'
''
'end;'
''
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena : String;'
'begin'
' if (<frxDBCabecera."TITULAR"> <> '#39#39') then'
' begin'
' Cadena := Memo11.Lines.Text;'
' Memo11.Lines.Clear;'
' Memo11.Lines.Add(<frxDBCabecera."TITULAR">);'
' Memo11.Lines.Add(Cadena);'
' end'
'end;'
''
'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1)); '
' Set('#39'Pagina'#39', (<Pagina> + 1));'
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin'
' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
' Set('#39'Capitulo'#39', 0);'
' Set('#39'NumCapitulos'#39', 0); '
'end;'
''
'procedure Memo4OnBeforePrint(Sender: TfrxComponent);'
'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
' Memo4.Visible := False; '
'end;'
''
'procedure Memo22OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."DESCUENTO"> = 0) then'
' if <ShowLogotipo> then'
' begin '
' Subtotal.Text := '#39'Base imponible:'#39';'
' BaseImponible.Text := '#39'Importe total:'#39'; '
' BaseImponible.Font.Style := fsBold;'
''
' Picture1.Visible := True; '
' Picture2.Visible := True; '
' Picture3.Visible := True; '
' Picture4.Visible := True; '
' Picture5.Visible := True; '
' Picture6.Visible := True; '
' Memo12.Visible := True;'
' ImpBaseImponible.Text := FormatFloat('#39'#,##0.00 '#8364#39', <frxDBCa' +
'becera."IMPORTE_TOTAL">);'
' ImpBaseImponible.Font.Style := fsBold; '
' '
' Descuento.Text := '#39'[<frxDBCabecera."IVA">]% IVA:'#39';'
' ImpDescuento.Text := '#39'[frxDBCabecera."IMPORTE_IVA"]'#39';'
' Memo11.Color := $00CCFFCC;'
''
' if (<frxDBCabecera."IMPORTE_RETENCION"> > 0) then'
' begin '
' BaseImponible.Text := '#39'Total certificaci'#243'n:'#39';'
' IVA.Text := FormatFloat('#39'#,##0.00 %'#39',<frxDBCabecera."RET' +
'ENCION">) + '#39' Retenci'#243'n:'#39'; '
' ImpIVA.Text := FormatFloat('#39'-#,##0.00 '#8364#39',<frxDBCabecera.' +
'"IMPORTE_RETENCION">);'
' ImporteTotal.Text := '#39'TOTAL FACTURA'#39'; ' +
' ' +
' '
' ImpImporteTotal.Text := FormatFloat('#39'#,##0.00 '#8364#39', (<frxD' +
'BCabecera."IMPORTE_TOTAL"> - <frxDBCabecera."IMPORTE_RETENCION">' +
')); '
' end '
' else'
' begin'
' IVA.Visible := False;'
' ImpIVA.Visible := False;'
' ImporteTotal.Visible := False;'
' ImpImporteTotal.Visible := False;'
' Memo16.Visible := False; '
' Memo17.Visible := False;'
' end;'
' Memo14.Visible := True; ' +
' '
' end'
' else'
' begin '
' if (<frxDBCabecera."IMPORTE_RETENCION"> > 0) then'
' begin'
' ImporteTotal.Text := '#39'Total certificaci'#243'n:'#39'; '
' Retencion.Visible := True;'
' ImpRetencion.Visible := True;'
' LinRetencion.Visible := True; '
' TotalFacturaRet.Visible := True;'
' ImpTotalFacturaRet.Visible := True;'
' LinImporteTotalFacturaRet.Visible := True; '
' end'
' end '
'end;'
''
'procedure Memo39OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Memo39.Clear; '
' if (<frxDBCabecera."TIPO"> = '#39'F'#39') then'
' Picture1.Visible := False;'
' Picture2.Visible := False;'
' Picture3.Visible := False;'
' Picture4.Visible := False;'
' Picture5.Visible := False;'
' Picture6.Visible := False;'
' Memo12.Visible := False;'
' Memo39.Text := '#39'FACTURA'#39' ' +
' '
' else'
' Memo39.Text := '#39'ABONO'#39'; '
'end;'
''
'procedure Picture4OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<VerSello> = 1) then'
' Picture4.Visible := True'
' else'
' Picture4.Visible := False; '
'end;'
''
'procedure eCopiaOnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<VerCopia> = 1) then'
' begin '
' eCopia.Visible := True; '
' Picture4.Visible := False; '
' end '
' else'
' eCopia.Visible := False; '
' Memo14.Visible := False; ' +
' '
' end'
'end;'
''
'begin'
@ -1868,6 +2030,7 @@ object RptFacturasCliente: TRptFacturasCliente
'end.')
ShowProgress = False
StoreInDFM = False
OnGetValue = frxReportGetValue
OnStartReport = 'frxReportOnStartReport'
Left = 145
Top = 16

54
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -91,12 +91,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Height = 318
OnChanging = pgPaginasChanging
ExplicitWidth = 817
ExplicitHeight = 332
ExplicitHeight = 318
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 809
ExplicitHeight = 304
ExplicitHeight = 290
inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0
Top = 0
@ -112,10 +112,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 809
ExplicitHeight = 290
inherited dxLayoutControl1: TdxLayoutControl
Width = 809
Height = 290
ExplicitWidth = 809
ExplicitHeight = 290
DesignSize = (
809
290)
@ -240,7 +242,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitHeight = 304
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0
Top = 0
@ -258,11 +259,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 809
ExplicitHeight = 290
inherited ToolBar1: TToolBar
Width = 809
Height = 73
Height = 46
ExplicitWidth = 809
ExplicitHeight = 73
ExplicitHeight = 46
inherited ToolButton3: TToolButton
Wrap = False
end
@ -288,7 +290,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 22
ExplicitWidth = 296
end
inherited ToolButton13: TToolButton [7]
inherited UpDown1: TUpDown
Left = 441
Top = 22
ExplicitLeft = 441
ExplicitTop = 22
end
inherited ToolButton13: TToolButton
Left = 0
Top = 22
Wrap = True
@ -296,52 +304,46 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 22
ExplicitHeight = 27
end
inherited UpDown1: TUpDown [8]
inherited ToolButton6: TToolButton
Left = 0
Top = 49
ExplicitLeft = 0
ExplicitTop = 49
end
inherited ToolButton6: TToolButton
Left = 17
Top = 49
ExplicitLeft = 17
ExplicitTop = 49
end
inherited ToolButton7: TToolButton
Left = 83
Left = 66
Top = 49
ExplicitLeft = 83
ExplicitLeft = 66
ExplicitTop = 49
end
inherited ToolButton8: TToolButton
Left = 150
Left = 133
Top = 49
ExplicitLeft = 150
ExplicitLeft = 133
ExplicitTop = 49
end
inherited ToolButton12: TToolButton
Left = 233
Left = 216
Top = 49
ExplicitLeft = 233
ExplicitLeft = 216
ExplicitTop = 49
end
inherited ToolButton9: TToolButton
Left = 241
Left = 224
Top = 49
ExplicitLeft = 241
ExplicitLeft = 224
ExplicitTop = 49
end
inherited ToolButton10: TToolButton
Left = 386
Left = 369
Top = 49
ExplicitLeft = 386
ExplicitLeft = 369
ExplicitTop = 49
end
inherited ToolButton11: TToolButton
Left = 511
Left = 494
Top = 49
ExplicitLeft = 511
ExplicitLeft = 494
ExplicitTop = 49
end
end
@ -406,7 +408,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Height = 192
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
ExplicitWidth = 823
ExplicitHeight = 178
ExplicitHeight = 192
inherited Bevel3: TBevel
Left = 411
Top = 30

3
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -144,6 +144,9 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Kind = skSum
Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL
end>
inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
IsCaptionAssigned = True
end
inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Visible = True
end

643
Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
View File

@ -7,6 +7,45 @@ object RptFacturasProveedor: TRptFacturasProveedor
object schReport: TDASchema
ConnectionManager = dmServer.ConnectionManager
Datasets = <
item
Params = <
item
Name = 'ID_FACTURA'
Value = ''
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_RECIBOS_PROVEEDOR'
Name = 'IBX'
SQL =
'SELECT'#10' V_RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, V_RECIBOS_PROV' +
'EEDOR.IMPORTE_TOTAL'#10'FROM V_RECIBOS_PROVEEDOR'#10'WHERE V_RECIBOS_PRO' +
'VEEDOR.ID_FACTURA = :ID_FACTURA'#10'ORDER BY V_RECIBOS_PROVEEDOR.FEC' +
'HA_VENCIMIENTO'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end>
end>
Name = 'InformeFacturasProveedor_Vencimientos'
Fields = <
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end>
end
item
Params = <
item
@ -19,24 +58,27 @@ object RptFacturasProveedor: TRptFacturasProveedor
item
Connection = 'IBX'
SQL =
'select'#10' V_FACTURAS_PROVEEDOR.id, V_FACTURAS_PROVEEDOR.id_empre' +
'sa,'#10' V_FACTURAS_PROVEEDOR.referencia, V_FACTURAS_PROVEEDOR.tip' +
'o,'#10' V_FACTURAS_PROVEEDOR.fecha_factura, V_FACTURAS_PROVEEDOR.b' +
'ase_imponible,'#10' V_FACTURAS_PROVEEDOR.situacion, V_FACTURAS_PRO' +
'VEEDOR.descuento,'#10' V_FACTURAS_PROVEEDOR.importe_descuento, V_F' +
'ACTURAS_PROVEEDOR.iva,'#10' V_FACTURAS_PROVEEDOR.importe_iva, V_FA' +
'CTURAS_PROVEEDOR.re,'#10' V_FACTURAS_PROVEEDOR.importe_re, V_FACTU' +
'RAS_PROVEEDOR.importe_total,'#10' V_FACTURAS_PROVEEDOR.observacion' +
'es, V_FACTURAS_PROVEEDOR.nif_cif,'#10' V_FACTURAS_PROVEEDOR.id_pro' +
'veedor, V_FACTURAS_PROVEEDOR.nombre,'#10' V_FACTURAS_PROVEEDOR.cal' +
'le, V_FACTURAS_PROVEEDOR.provincia,'#10' V_FACTURAS_PROVEEDOR.pobl' +
'acion, V_FACTURAS_PROVEEDOR.codigo_postal,'#10' V_FACTURAS_PROVEED' +
'OR.recargo_equivalencia, V_FACTURAS_PROVEEDOR.importe_neto,'#10' V' +
'_FACTURAS_PROVEEDOR.importe_porte, formas_pago.descripcion as FO' +
'RMA_PAGO,'#10' V_FACTURAS_PROVEEDOR.DATOS_BANCARIOS'#10'from V_FACTURA' +
'S_PROVEEDOR'#10' left outer join formas_pago on (formas_pago.id = ' +
'V_FACTURAS_PROVEEDOR.id_forma_pago)'#10'WHERE V_FACTURAS_PROVEEDOR.I' +
'D = :ID'#10
'SELECT'#10' V_FACTURAS_PROVEEDOR.ID, V_FACTURAS_PROVEEDOR.REFEREN' +
'CIA, V_FACTURAS_PROVEEDOR.FECHA_FACTURA,'#10' V_FACTURAS_PROVEEDO' +
'R.BASE_IMPONIBLE, V_FACTURAS_PROVEEDOR.DESCUENTO, V_FACTURAS_PRO' +
'VEEDOR.IMPORTE_DESCUENTO,'#10' V_FACTURAS_PROVEEDOR.IVA, V_FACTUR' +
'AS_PROVEEDOR.IMPORTE_IVA,'#10' V_FACTURAS_PROVEEDOR.RE, V_FACTURA' +
'S_PROVEEDOR.IMPORTE_RE,'#10' V_FACTURAS_PROVEEDOR.IMPORTE_TOTAL, ' +
'V_FACTURAS_PROVEEDOR.IMPORTE_PORTE,'#10' V_FACTURAS_PROVEEDOR.OBS' +
'ERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_PR' +
'OVEEDOR.ID_PROVEEDOR,'#10' V_FACTURAS_PROVEEDOR.NIF_CIF, V_FACTUR' +
'AS_PROVEEDOR.NOMBRE, V_FACTURAS_PROVEEDOR.CALLE,'#10' V_FACTURAS_' +
'PROVEEDOR.PROVINCIA, V_FACTURAS_PROVEEDOR.CODIGO_POSTAL, V_FACTU' +
'RAS_PROVEEDOR.POBLACION,'#10#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NI' +
'F_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALL' +
'E_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS' +
'.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIG' +
'O_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESA' +
'S.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.R' +
'EGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM V_FACTURAS_PROVEEDOR'#10 +
'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_' +
'PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_PROVEEDOR.ID_FORMA_PAGO)'#10'WH' +
'ERE V_FACTURAS_PROVEEDOR.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -51,10 +93,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
@ -63,10 +101,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
@ -127,14 +161,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'RECARGO_EQUIVALENCIA'
TableField = 'RECARGO_EQUIVALENCIA'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
end
item
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
@ -144,8 +170,56 @@ object RptFacturasProveedor: TRptFacturasProveedor
TableField = 'FORMA_PAGO'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
DatasetField = 'NIF_CIF_EMPRESA'
TableField = 'NIF_CIF_EMPRESA'
end
item
DatasetField = 'RAZON_SOCIAL'
TableField = 'RAZON_SOCIAL'
end
item
DatasetField = 'CALLE_EMPRESA'
TableField = 'CALLE_EMPRESA'
end
item
DatasetField = 'POBLACION_EMPRESA'
TableField = 'POBLACION_EMPRESA'
end
item
DatasetField = 'PROVINCIA_EMPRESA'
TableField = 'PROVINCIA_EMPRESA'
end
item
DatasetField = 'CODIGO_POSTAL_EMPRESA'
TableField = 'CODIGO_POSTAL_EMPRESA'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'PAGINA_WEB'
TableField = 'PAGINA_WEB'
end
item
DatasetField = 'REGISTRO_MERCANTIL'
TableField = 'REGISTRO_MERCANTIL'
end
item
DatasetField = 'LOGOTIPO'
TableField = 'LOGOTIPO'
end>
end>
Name = 'InformeFacturasProveedor'
@ -156,22 +230,12 @@ object RptFacturasProveedor: TRptFacturasProveedor
DictionaryEntry = 'FacturasCliente_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'TIPO'
DataType = datString
Size = 1
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
@ -182,11 +246,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
end
item
Name = 'DESCUENTO'
DataType = datFloat
@ -220,21 +279,30 @@ object RptFacturasProveedor: TRptFacturasProveedor
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
end
item
Name = 'FORMA_PAGO'
DataType = datString
Size = 255
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NOMBRE'
DataType = datString
@ -253,12 +321,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
Size = 255
DictionaryEntry = 'FacturasCliente_PROVINCIA'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_POBLACION'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
@ -266,26 +328,79 @@ object RptFacturasProveedor: TRptFacturasProveedor
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_POBLACION'
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'FORMA_PAGO'
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
end
item
Name = 'DATOS_BANCARIOS'
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
end
item
Name = 'LOGOTIPO'
DataType = datBlob
end>
ReadOnly = True
end
@ -301,13 +416,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
item
Connection = 'IBX'
SQL =
'SELECT'#10' DET.ID, DET.ID_FACTURA, DET.POSICION, DET.TIPO_DETALL' +
'E, ARTICULOS.REFERENCIA,'#10' DET.CONCEPTO, DET.CANTIDAD, DET.UNI' +
'DAD_MEDIDA, DET.IMPORTE_UNIDAD,'#10' DET.DESCUENTO, DET.IMPORTE_T' +
'OTAL, DET.VISIBLE'#10'FROM FACTURAS_PROVEEDOR_DETALLES AS DET'#10'LEFT O' +
'UTER JOIN ARTICULOS ON (ARTICULOS.ID = DET.ID_ARTICULO)'#10'WHERE DE' +
'T.ID_FACTURA = :ID_FACTURA AND DET.VISIBLE = 1 AND {Where}'#10'ORDER' +
' BY DET.ID_FACTURA, DET.POSICION;'#10
'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, CONCEPTO, CAN' +
'TIDAD,'#10' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FRO' +
'M FACTURAS_PROVEEDOR_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORD' +
'ER BY POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@ -326,10 +438,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
DatasetField = 'TIPO_DETALLE'
TableField = 'TIPO_DETALLE'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
@ -338,10 +446,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
@ -379,11 +483,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
DataType = datString
Size = 25
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
@ -391,12 +490,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
end
item
Name = 'CANTIDAD'
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@ -1160,7 +1254,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
Top = 392
end
object frxReport: TfrxReport
Version = '4.3'
Version = '4.7.71'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
@ -1236,13 +1330,21 @@ object RptFacturasProveedor: TRptFacturasProveedor
ShowDialog = False
UseFileCache = True
ShowProgress = False
OverwritePrompt = False
PrintOptimized = True
Outline = False
Background = False
HTMLTags = True
Author = 'FactuGES'
Subject = 'FactuGES'
Background = False
Creator = 'FactuGES'
HTMLTags = True
ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
HideToolbar = False
HideMenubar = False
HideWindowUI = False
FitWindow = False
CenterWindow = False
PrintScaling = False
Left = 424
Top = 288
end
@ -1316,8 +1418,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeListadoFacturas'
IndexDefs = <>
Left = 576
@ -1333,6 +1433,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
UserName = 'frxDBInformeListadoFacturas'
CloseDataSource = False
DataSource = DADSInformeListadoFacturas
BCDToCurrency = False
Left = 576
Top = 16
end
@ -1411,8 +1512,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeListadoFacturasPendientes'
IndexDefs = <>
Left = 768
@ -1428,6 +1527,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
UserName = 'frxDBInformeListadoFacturasPendientes'
CloseDataSource = False
DataSource = DADSInformeListadoFacturasPendientes
BCDToCurrency = False
Left = 768
Top = 16
end
@ -1441,6 +1541,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
UserName = 'frxDBInformeListadoFacturasPendResumen'
CloseDataSource = False
DataSource = DADSInformeListadoFacturasPendResumen
BCDToCurrency = False
Left = 768
Top = 208
end
@ -1448,6 +1549,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
UserName = 'frxDBInformeListadoFacturasResumen'
CloseDataSource = False
DataSource = DADSInformeListadoFacturasResumen
BCDToCurrency = False
Left = 576
Top = 216
end
@ -1465,8 +1567,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <>
Left = 576
Top = 328
@ -1479,8 +1579,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <>
Left = 768
Top = 328
@ -1493,4 +1591,337 @@ object RptFacturasProveedor: TRptFacturasProveedor
Left = 64
Top = 200
end
object tbl_Cabecera: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID'
InPrimaryKey = True
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'FacturasCliente_DESCUENTO'
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
end
item
Name = 'IVA'
DataType = datFloat
DictionaryEntry = 'FacturasCliente_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
end
item
Name = 'RE'
DataType = datFloat
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
end
item
Name = 'FORMA_PAGO'
DataType = datString
Size = 255
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_NOMBRE'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_CALLE'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_POBLACION'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
end
item
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
end
item
Name = 'LOGOTIPO'
DataType = datBlob
end>
Params = <
item
Name = 'ID'
DataType = datInteger
Value = '1'
ParamType = daptInput
end>
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'InformeFacturasProveedor'
IndexDefs = <>
Left = 264
Top = 128
end
object tbl_Detalles: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'POSICION'
DataType = datInteger
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 25
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
end
item
Name = 'CANTIDAD'
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'VISIBLE'
DataType = datSmallInt
end>
Params = <
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = '2'
ParamType = daptInput
end>
MasterParamsMappings.Strings = (
'ID_FACTURA=ID')
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'InformeFacturasProveedor_Detalles'
IndexDefs = <>
Left = 344
Top = 128
end
object DADSDetalles: TDADataSource
DataSet = tbl_Detalles.Dataset
DataTable = tbl_Detalles
Left = 344
Top = 72
end
object DADSCabecera: TDADataSource
DataSet = tbl_Cabecera.Dataset
DataTable = tbl_Cabecera
Left = 264
Top = 72
end
object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera'
CloseDataSource = False
DataSource = DADSCabecera
BCDToCurrency = False
Left = 264
Top = 16
end
object frxDBDetalles: TfrxDBDataset
UserName = 'frxDBDetalles'
CloseDataSource = False
DataSource = DADSDetalles
BCDToCurrency = False
Left = 344
Top = 16
end
object frxDBVencimientos: TfrxDBDataset
UserName = 'frxDBVencimientos'
CloseDataSource = False
DataSource = DADSVencimientos
BCDToCurrency = False
Left = 424
Top = 16
end
object DADSVencimientos: TDADataSource
DataSet = tbl_Vencimientos.Dataset
DataTable = tbl_Vencimientos
Left = 424
Top = 72
end
object tbl_Vencimientos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end>
Params = <
item
Name = 'ID_FACTURA'
Value = ''
end>
MasterParamsMappings.Strings = (
'ID_FACTURA=ID')
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'InformeFacturasProveedor_Vencimientos'
IndexDefs = <>
Left = 424
Top = 128
end
end

96
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -48,7 +48,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 819
ExplicitWidth = 819
inherited tbxMain: TTBXToolbar
ExplicitWidth = 330
ExplicitWidth = 488
inherited TBXItem2: TTBXItem
Visible = False
end
@ -264,9 +264,9 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitHeight = 334
inherited ToolBar1: TToolBar
Width = 805
Height = 51
Height = 78
ExplicitWidth = 805
ExplicitHeight = 51
ExplicitHeight = 78
inherited ToolButton3: TToolButton
Wrap = False
end
@ -288,15 +288,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 399
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 544
Top = 0
Width = 200
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 200
end
inherited ToolButton13: TToolButton [7]
inherited ToolButton13: TToolButton [6]
Left = 0
Top = 0
Wrap = True
@ -304,71 +296,72 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitTop = 0
ExplicitHeight = 27
end
inherited UpDown1: TUpDown [8]
inherited ToolButton6: TToolButton [7]
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton6: TToolButton [9]
Left = 17
inherited ToolButton7: TToolButton [8]
Left = 66
Top = 27
ExplicitLeft = 17
ExplicitLeft = 66
ExplicitTop = 27
end
inherited ToolButton7: TToolButton [10]
Left = 83
inherited FontSize: TEdit [9]
Left = 133
Top = 27
ExplicitLeft = 83
Width = 248
ExplicitLeft = 133
ExplicitTop = 27
ExplicitWidth = 248
end
inherited UpDown1: TUpDown [10]
Left = 381
Top = 27
ExplicitLeft = 381
ExplicitTop = 27
end
inherited ToolButton8: TToolButton [11]
Left = 150
Left = 398
Top = 27
ExplicitLeft = 150
ExplicitLeft = 398
ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
Left = 233
Top = 27
ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton [13]
Left = 241
Top = 27
ExplicitLeft = 241
ExplicitTop = 27
Top = 54
ExplicitTop = 54
end
inherited ToolButton10: TToolButton [14]
Left = 386
Top = 27
ExplicitLeft = 386
ExplicitTop = 27
Top = 54
ExplicitTop = 54
end
inherited ToolButton11: TToolButton [15]
Left = 511
Top = 27
ExplicitLeft = 511
ExplicitTop = 27
Left = 270
Top = 54
ExplicitLeft = 270
ExplicitTop = 54
end
end
inherited cxGrid: TcxGrid
Top = 77
Top = 104
Width = 805
Height = 257
ExplicitTop = 77
Height = 230
ExplicitTop = 104
ExplicitWidth = 805
ExplicitHeight = 257
ExplicitHeight = 230
end
inherited TBXDock1: TTBXDock
Top = 51
Top = 78
Width = 805
ExplicitTop = 51
ExplicitTop = 78
ExplicitWidth = 805
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 805
ExplicitWidth = 523
end
end
inherited cxGridPopupMenu: TcxGridPopupMenu
@ -670,14 +663,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item8: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Item9: TdxLayoutItem
inherited dxLayoutControl1Group10: TdxLayoutGroup
Visible = False
end
end
inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item19: TdxLayoutItem
Visible = False
end
@ -689,7 +682,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Offsets.Top = 3
end
inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
inherited dxLayoutControl1Item7: TdxLayoutItem
Visible = True
end
@ -706,14 +698,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited EditorActionList: TActionList [5]
Left = 8
Top = 144
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
end
inherited SmallImages: TPngImageList [6]
end

13
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm
View File

@ -38,7 +38,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Width = 849
ExplicitWidth = 849
inherited tbxMain: TTBXToolbar
ExplicitWidth = 775
ExplicitWidth = 632
object TBXSubmenuItem2: TTBXSubmenuItem [0]
Caption = 'Nuevo'
DisplayMode = nbdmImageAndText
@ -146,6 +146,9 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Kind = skSum
Column = frViewFacturasProveedor1.cxGridViewBASE_IMPONIBLE
end>
inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
IsCaptionAssigned = True
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
@ -173,22 +176,22 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Width = 282
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 386
Left = 301
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 386
ExplicitLeft = 301
ExplicitWidth = 453
Width = 453
end
inherited eLista: TcxComboBox
Left = 876
Left = 682
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 876
ExplicitLeft = 682
ExplicitWidth = 215
Width = 215
end

454
Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
View File

@ -162,26 +162,49 @@ object RptPedidosProveedor: TRptPedidosProveedor
item
Connection = 'IBX'
SQL =
'SELECT'#10' PEDIDOS_PROVEEDOR.ID,'#10' PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' +
' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' +
#10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.OBSERVAC' +
'IONES,'#10' CONTACTOS.NOMBRE,'#10' COALESCE(CONTACTOS_DIRECCIONES.FAX,' +
' CONTACTOS.FAX) AS FAX,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO_PRO' +
'V AS PERSONA_CONTACTO,'#10' PROVEEDORES_DATOS.CODIGO_ASIGNADO AS CO' +
'DIGO_CLIENTE,'#10' PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' COALESCE(ALMACEN' +
'ES.CALLE, PEDIDOS_PROVEEDOR.CALLE) AS CALLE,'#10' COALESCE(ALMACENE' +
'S.POBLACION, PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION,'#10' COALES' +
'CE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PROVINCIA) AS PROVINCI' +
'A,'#10' COALESCE(ALMACENES.CODIGO_POSTAL, PEDIDOS_PROVEEDOR.CODIGO_' +
'POSTAL) AS CODIGO_POSTAL,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO A' +
'S ENTREGAR_A,'#10' PEDIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10' PEDIDOS_P' +
'ROVEEDOR'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVE' +
'EDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN PROVEEDORES_DATOS ON (PROVE' +
'EDORES_DATOS.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LE' +
'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
' = PEDIDOS_PROVEEDOR.ID_DIRECCION)'#10' LEFT OUTER JOIN ALMACENES O' +
'N (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PR' +
'OVEEDOR.ID = :ID'#10#10#10#10
'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' +
'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' +
'_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' +
'MBRE,'#10' V_PROVEEDORES.FAX,'#10' CASE WHEN (ALMACENES.ID > 0)'#10' ' +
' THEN CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' ' +
' THEN ALMACENES.NOMBRE'#10' END'#10' END AS NOMB' +
'RE_ALMACEN,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN CAS' +
'E WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' THEN A' +
'LMACENES.CALLE'#10' ELSE V_PEDIDOS_PROVEEDOR.CALLE'#10' ' +
' END'#10' ELSE V_PEDIDOS_PROVEEDOR.CALLE'#10' ' +
' END as CALLE,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ' +
'CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' THE' +
'N ALMACENES.POBLACION'#10' ELSE V_PEDIDOS_PROVEEDOR.' +
'POBLACION'#10' END'#10' ELSE V_PEDIDOS_PROVEE' +
'DOR.POBLACION'#10' END as POBLACION,'#10#10' CASE WHEN (ALMACENES.ID > 0' +
')'#10' THEN CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' ' +
' THEN ALMACENES.PROVINCIA'#10' ELSE V' +
'_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END'#10' EL' +
'SE V_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END as PROVINCIA,'#10#10' CASE WHE' +
'N (ALMACENES.ID > 0)'#10' THEN CASE WHEN V_PEDIDOS_PROVEE' +
'DOR.CALLE is null'#10' THEN ALMACENES.CODIGO_POSTAL'#10 +
' ELSE V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL'#10' ' +
' END'#10' ELSE V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL'#10 +
' END as CODIGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' ' +
' THEN CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' ' +
' THEN ALMACENES.PERSONA_CONTACTO'#10' ELSE V_PE' +
'DIDOS_PROVEEDOR.PERSONA_CONTACTO'#10' END'#10' ' +
' ELSE V_PEDIDOS_PROVEEDOR.PERSONA_CONTACTO'#10' END as PERSONA_CON' +
'TACTO,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN CASE WHE' +
'N V_PEDIDOS_PROVEEDOR.CALLE is null'#10' THEN ALMACE' +
'NES.TELEFONO'#10' ELSE V_PEDIDOS_PROVEEDOR.TELEFONO'#10 +
' END'#10' ELSE V_PEDIDOS_PROVEEDOR.TELEFO' +
'NO'#10' END as TELEFONO,'#10#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' ' +
'EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RA' +
'ZON_SOCIAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,' +
#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EM' +
'PRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_' +
'WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTE' +
'R JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_PEDIDOS_PROVEEDOR.' +
'ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = V_P' +
'EDIDOS_PROVEEDOR.ID_ALMACEN)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPR' +
'ESAS.ID = V_PEDIDOS_PROVEEDOR.ID_EMPRESA)'#10'WHERE V_PEDIDOS_PROVEE' +
'DOR.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -216,18 +239,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'FECHA_ENTREGA'
TableField = 'FECHA_ENTREGA'
end
item
DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
@ -245,12 +256,44 @@ object RptPedidosProveedor: TRptPedidosProveedor
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'CODIGO_CLIENTE'
TableField = 'CODIGO_CLIENTE'
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item
DatasetField = 'ENTREGAR_A'
TableField = 'ENTREGAR_A'
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'NIF_CIF_EMPRESA'
TableField = 'NIF_CIF_EMPRESA'
end
item
DatasetField = 'NOMBRE_EMPRESA'
TableField = 'NOMBRE_EMPRESA'
end
item
DatasetField = 'RAZON_SOCIAL_EMPRESA'
TableField = 'RAZON_SOCIAL_EMPRESA'
end
item
DatasetField = 'TELEFONO_1_EMPRESA'
TableField = 'TELEFONO_1_EMPRESA'
end
item
DatasetField = 'FAX_EMPRESA'
TableField = 'FAX_EMPRESA'
end
item
DatasetField = 'MOVIL_1_EMPRESA'
TableField = 'MOVIL_1_EMPRESA'
end
item
DatasetField = 'EMAIL_1_EMPRESA'
TableField = 'EMAIL_1_EMPRESA'
end
item
DatasetField = 'PAGINA_WEB_EMPRESA'
TableField = 'PAGINA_WEB_EMPRESA'
end>
end>
Name = 'Informe_Cabecera'
@ -272,10 +315,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
Name = 'FECHA_PEDIDO'
DataType = datDateTime
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
@ -291,19 +330,10 @@ object RptPedidosProveedor: TRptPedidosProveedor
Size = 25
end
item
Name = 'PERSONA_CONTACTO'
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
end
item
Name = 'CALLE'
DataType = datString
@ -325,13 +355,54 @@ object RptPedidosProveedor: TRptPedidosProveedor
Size = 10
end
item
Name = 'ENTREGAR_A'
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'RAZON_SOCIAL_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'FAX_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB_EMPRESA'
DataType = datString
Size = 255
end>
ReadOnly = True
end
@ -347,20 +418,18 @@ object RptPedidosProveedor: TRptPedidosProveedor
item
Connection = 'IBX'
SQL =
'SELECT DET.ID, DET.ID_PEDIDO,'#10' DET.POSICION, DET.TIPO_DETA' +
'LLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as C' +
'ONCEPTO, DET.CANTIDAD,'#10' DET.UNIDAD_MEDIDA, DET.IMPORTE_UNI' +
'DAD - (DET.IMPORTE_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) a' +
's IMPORTE_UNIDAD, DET.IMPORTE_TOTAL,'#10' ARTICULOS_PROVEEDORE' +
'S.REFERENCIA_PROV as REFERENCIA_PROVEEDOR,'#10' ARTICULOS.REFE' +
'RENCIA_FABR as REFERENCIA_FABRICANTE'#10'FROM PEDIDOS_PROVEEDOR_DETA' +
'LLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTICUL' +
'OS.ID)'#10'LEFT JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = DE' +
'T.ID_PEDIDO)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROV' +
'EEDORES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.I' +
'D_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10#10'WHERE DET.ID_PED' +
'IDO = :ID_PEDIDO AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID' +
'_PEDIDO, DET.POSICION;'#10#10#10#10#10#10#10
'SELECT PEDIDOS_PROVEEDOR_DETALLES.ID, PEDIDOS_PROVEEDOR_DETALLES' +
'.ID_PEDIDO,'#10' PEDIDOS_PROVEEDOR_DETALLES.POSICION, PEDIDOS_' +
'PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_PROVEEDOR_DETALL' +
'ES.CONCEPTO, PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD,'#10' PEDIDOS' +
'_PROVEEDOR_DETALLES.IMPORTE_UNIDAD - (PEDIDOS_PROVEEDOR_DETALLES' +
'.IMPORTE_UNIDAD * (COALESCE(PEDIDOS_PROVEEDOR_DETALLES.DESCUENTO' +
',0) / 100)) as IMPORTE_UNIDAD,'#10' PEDIDOS_PROVEEDOR_DETALLES' +
'.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, ' +
'ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PEDIDOS_' +
'PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON (PEDIDOS_PROVEEDOR_DET' +
'ALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE ID_PEDIDO = :ID_PEDIDO'#10'O' +
'RDER BY POSICION'#10#10#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -387,10 +456,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
@ -403,13 +468,13 @@ object RptPedidosProveedor: TRptPedidosProveedor
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'REFERENCIA_FABRICANTE'
TableField = 'REFERENCIA_FABRICANTE'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end>
end>
Name = 'Informe_Detalles'
@ -431,24 +496,14 @@ object RptPedidosProveedor: TRptPedidosProveedor
DataType = datString
Size = 25
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 32765
Size = 2000
end
item
Name = 'CANTIDAD'
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@ -459,12 +514,17 @@ object RptPedidosProveedor: TRptPedidosProveedor
DataType = datCurrency
end
item
Name = 'REFERENCIA_PROVEEDOR'
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FABRICANTE'
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end>
@ -564,7 +624,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
Top = 158
end
object frxReport: TfrxReport
Version = '4.3'
Version = '4.7.71'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
@ -572,23 +632,106 @@ object RptPedidosProveedor: TRptPedidosProveedor
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 39840.822843958330000000
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40409.715831631950000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
''
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'begin'
' if Engine.FinalPass then'
' begin'
' if (<Page#> = <TotalPages#>) then'
' begin '
' mContinua.Visible := False;'
' end '
' else'
' begin '
' mContinua.Visible := True;'
' end '
' end; '
' DatosEmpresa.Lines.Clear;'
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
'">;'
' DatosEmpresa.Lines.Add(Cadena);'
'end;'
''
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
'begin'
' NombreEmpresa.Lines.Clear;'
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'end;'
''
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String;'
'begin'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;'
''
' if (<frxDBCabecera."NOMBRE_ALMACEN"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."NOMBRE_ALMACEN">' +
');'
''
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PERSONA_CONTACTO">' +
');'
''
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
''
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' ACadena := ACadena + <frxDBCabecera."POBLACION">;'
''
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
''
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1));'
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin'
' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
'end;'
''
'procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <ImprimirPrecio> then'
' begin '
' eImporteUnidad.Visible := True; '
' lImporteUnidad.Visible := True; '
' eImporteTotal.Visible := True; '
' lImporteTotal.Visible := True; '
' ImporteUnidad.Visible := True; '
' ImporteTotal.Visible := True; '
' end'
' else'
' begin '
' eImporteUnidad.Visible := False; '
' lImporteUnidad.Visible := False; '
' eImporteTotal.Visible := False; '
' lImporteTotal.Visible := False; '
' ImporteUnidad.Visible := False; '
' ImporteTotal.Visible := False;'
' eConcepto.Width := eConcepto.Width + ImporteTotal.Width + I' +
'mporteUnidad.Width + 10;'
' Concepto.Width := Concepto.Width + ImporteTotal.Width + Imp' +
'orteUnidad.Width; '
' end'
'end;'
''
'begin'
@ -605,6 +748,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
UserName = 'frxDBCabecera'
CloseDataSource = False
DataSource = DADSCabecera
BCDToCurrency = False
Left = 360
Top = 24
end
@ -612,6 +756,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
UserName = 'frxDBDetalles'
CloseDataSource = False
DataSource = DADSDetalles
BCDToCurrency = False
Left = 440
Top = 24
end
@ -875,11 +1020,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
DataType = datString
Size = 25
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
@ -887,12 +1027,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@ -903,12 +1038,17 @@ object RptPedidosProveedor: TRptPedidosProveedor
DataType = datCurrency
end
item
Name = 'REFERENCIA_PROVEEDOR'
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FABRICANTE'
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end>
@ -926,8 +1066,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
LocalSchema = schReport
LocalDataStreamer = DABin2DataStreamer1
DetailFields = 'ID_PEDIDO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Detalles'
IndexDefs = <>
Left = 440
@ -953,10 +1091,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
Name = 'FECHA_PEDIDO'
DataType = datDateTime
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
@ -972,12 +1106,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
Size = 25
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_CLIENTE'
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
end
@ -1002,7 +1131,52 @@ object RptPedidosProveedor: TRptPedidosProveedor
Size = 10
end
item
Name = 'ENTREGAR_A'
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'RAZON_SOCIAL_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'FAX_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB_EMPRESA'
DataType = datString
Size = 255
end>
@ -1017,8 +1191,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = DABin2DataStreamer1
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Cabecera'
IndexDefs = <>
Left = 360
@ -1028,13 +1200,21 @@ object RptPedidosProveedor: TRptPedidosProveedor
ShowDialog = False
UseFileCache = True
ShowProgress = False
OverwritePrompt = False
PrintOptimized = True
Outline = False
Background = False
HTMLTags = True
Author = 'FactuGES'
Subject = 'FactuGES'
Background = False
Creator = 'FactuGES'
HTMLTags = True
ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
HideToolbar = False
HideMenubar = False
HideWindowUI = False
FitWindow = False
CenterWindow = False
PrintScaling = False
Left = 440
Top = 296
end
@ -1042,6 +1222,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
UserName = 'frxDBInformeListadoPedidos'
CloseDataSource = False
DataSource = DADSInformeListadoPedidos
BCDToCurrency = False
Left = 600
Top = 24
end
@ -1108,8 +1289,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = DABin2DataStreamer1
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeListadoPedidos'
IndexDefs = <>
Left = 600
@ -1119,6 +1298,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
UserName = 'frxDBInformeListadoPedidosResumen'
CloseDataSource = False
DataSource = DADSInformeListadoPedidosResumen
BCDToCurrency = False
Left = 600
Top = 208
end
@ -1136,8 +1316,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <>
Left = 600
Top = 320

29
Source/Modulos/Pedidos a proveedor/Views/uDialogOpcionesImpresionPedidosProveedor.dfm
View File

@ -1,24 +1,26 @@
inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPedidosProveedor
Caption = 'Opciones para pedido a proveedor'
ClientHeight = 239
ClientHeight = 185
ClientWidth = 393
ExplicitWidth = 399
ExplicitHeight = 271
ExplicitHeight = 217
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Width = 393
ExplicitWidth = 393
end
inherited Bevel3: TBevel
Top = 195
Top = 141
Width = 393
ExplicitTop = 195
ExplicitWidth = 393
end
inherited pnlBotones: TPanel
Top = 197
Top = 143
Width = 393
ExplicitLeft = -8
ExplicitTop = 320
ExplicitWidth = 637
ExplicitTop = 197
ExplicitWidth = 393
inherited btnAceptar: TButton
Left = 229
ExplicitLeft = 229
@ -30,7 +32,7 @@ inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPed
end
inherited pnlHeader: TPanel
Width = 393
ExplicitWidth = 488
ExplicitWidth = 393
inherited lblInstruccion: TLabel
Width = 343
Margins.Bottom = 10
@ -42,16 +44,14 @@ inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPed
Width = 318
Height = 25
Visible = False
ExplicitTop = 60
ExplicitTop = 31
end
end
inherited pnlCuerpo: TPanel
Width = 393
Height = 129
ExplicitLeft = -8
ExplicitTop = 70
ExplicitWidth = 637
ExplicitHeight = 222
Height = 75
ExplicitWidth = 393
ExplicitHeight = 129
object cbVerPrecios: TCheckBox
AlignWithMargins = True
Left = 50
@ -73,6 +73,7 @@ inherited fDialogOpcionesImpresionPedidosProveedor: TfDialogOpcionesImpresionPed
Checked = True
State = cbChecked
TabOrder = 1
Visible = False
end
end
inherited ActionList1: TActionList

113
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
View File

@ -80,16 +80,16 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
inherited pgPaginas: TPageControl
Width = 873
Height = 531
Height = 534
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 873
ExplicitHeight = 531
ExplicitHeight = 534
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 865
ExplicitHeight = 503
ExplicitHeight = 506
end
object pagContenido: TTabSheet
Caption = 'Contenido'
@ -98,7 +98,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Left = 0
Top = 0
Width = 865
Height = 503
Height = 506
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -111,7 +111,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
TabOrder = 0
ReadOnly = False
ExplicitWidth = 865
ExplicitHeight = 503
ExplicitHeight = 506
inherited ToolBar1: TToolBar
Width = 865
Height = 46
@ -123,101 +123,97 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited ToolButton4: TToolButton
Left = 278
Top = 0
Wrap = True
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 0
Wrap = False
ExplicitLeft = 0
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 65
Top = 22
ExplicitLeft = 399
ExplicitTop = 0
ExplicitTop = 22
end
inherited FontSize: TEdit
Left = 544
Top = 0
Width = 294
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 294
Top = 22
Width = 310
ExplicitTop = 22
ExplicitWidth = 310
end
inherited UpDown1: TUpDown
Left = 838
Top = 0
ExplicitLeft = 838
ExplicitTop = 0
Left = 455
Top = 22
ExplicitLeft = 455
ExplicitTop = 22
end
inherited ToolButton13: TToolButton
Left = 0
Top = 0
Top = 22
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitTop = 22
ExplicitHeight = 27
end
inherited ToolButton6: TToolButton
Left = 0
Top = 27
Top = 49
ExplicitLeft = 0
ExplicitTop = 27
ExplicitTop = 49
end
inherited ToolButton7: TToolButton
Left = 66
Top = 27
Top = 49
ExplicitLeft = 66
ExplicitTop = 27
ExplicitTop = 49
end
inherited ToolButton8: TToolButton
Left = 133
Top = 27
Top = 49
ExplicitLeft = 133
ExplicitTop = 27
ExplicitTop = 49
end
inherited ToolButton12: TToolButton
Left = 216
Top = 27
Top = 49
ExplicitLeft = 216
ExplicitTop = 27
ExplicitTop = 49
end
inherited ToolButton9: TToolButton
Left = 224
Top = 27
Top = 49
ExplicitLeft = 224
ExplicitTop = 27
ExplicitTop = 49
end
inherited ToolButton10: TToolButton
Left = 369
Top = 27
Top = 49
ExplicitLeft = 369
ExplicitTop = 27
ExplicitTop = 49
end
inherited ToolButton11: TToolButton
Left = 494
Top = 27
Top = 49
ExplicitLeft = 494
ExplicitTop = 27
ExplicitTop = 49
end
end
inherited cxGrid: TcxGrid
Top = 77
Top = 99
Width = 865
Height = 426
ExplicitTop = 77
Height = 407
ExplicitTop = 104
ExplicitWidth = 865
ExplicitHeight = 429
ExplicitHeight = 399
end
inherited TBXDock1: TTBXDock
Top = 51
Top = 73
Width = 865
ExplicitTop = 51
ExplicitTop = 78
ExplicitWidth = 865
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 865
ExplicitWidth = 566
end
end
inherited cxGridPopupMenu: TcxGridPopupMenu
@ -238,7 +234,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Left = 0
Top = 0
Width = 865
Height = 503
Height = 506
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -249,7 +245,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
TabOrder = 0
ReadOnly = False
ExplicitWidth = 865
ExplicitHeight = 503
ExplicitHeight = 506
inherited pnlSup: TPanel
Width = 865
ExplicitWidth = 865
@ -259,13 +255,13 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
inherited GroupBox1: TGroupBox
Width = 865
Height = 475
Height = 478
ExplicitWidth = 865
ExplicitHeight = 478
ExplicitHeight = 475
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 848
ExplicitHeight = 448
Height = 448
ExplicitHeight = 451
Height = 451
Width = 848
end
end
@ -284,9 +280,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 613
Top = 616
Width = 879
Height = 46
Height = 43
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -296,15 +292,15 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitTop = 613
ExplicitTop = 616
ExplicitWidth = 879
ExplicitHeight = 46
ExplicitHeight = 43
inherited dxLayoutControl1: TdxLayoutControl
Width = 879
Height = 46
Height = 43
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 879
ExplicitHeight = 46
ExplicitHeight = 43
inherited Bevel3: TBevel
Left = 458
Top = 11
@ -545,9 +541,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
inherited dxLayoutControl1Item9: TdxLayoutItem
Visible = False
end
end
inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False

3
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
View File

@ -127,6 +127,9 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Kind = skSum
Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL
end>
inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
IsCaptionAssigned = True
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase

453
Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm
View File

@ -162,26 +162,27 @@ object RptPedidosCliente: TRptPedidosCliente
item
Connection = 'IBX'
SQL =
'SELECT'#10' PEDIDOS_PROVEEDOR.ID,'#10' PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' +
' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' +
#10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.OBSERVAC' +
'IONES,'#10' CONTACTOS.NOMBRE,'#10' COALESCE(CONTACTOS_DIRECCIONES.FAX,' +
' CONTACTOS.FAX) AS FAX,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO_PRO' +
'V AS PERSONA_CONTACTO,'#10' PROVEEDORES_DATOS.CODIGO_ASIGNADO AS CO' +
'DIGO_CLIENTE,'#10' PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' COALESCE(ALMACEN' +
'ES.CALLE, PEDIDOS_PROVEEDOR.CALLE) AS CALLE,'#10' COALESCE(ALMACENE' +
'S.POBLACION, PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION,'#10' COALES' +
'CE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PROVINCIA) AS PROVINCI' +
'A,'#10' COALESCE(ALMACENES.CODIGO_POSTAL, PEDIDOS_PROVEEDOR.CODIGO_' +
'POSTAL) AS CODIGO_POSTAL,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO A' +
'S ENTREGAR_A,'#10' PEDIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10' PEDIDOS_P' +
'ROVEEDOR'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVE' +
'EDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN PROVEEDORES_DATOS ON (PROVE' +
'EDORES_DATOS.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LE' +
'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
' = PEDIDOS_PROVEEDOR.ID_DIRECCION)'#10' LEFT OUTER JOIN ALMACENES O' +
'N (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PR' +
'OVEEDOR.ID = :ID'#10#10#10#10
'SELECT'#10' V_PEDIDOS_CLIENTE.ID,'#10' V_PEDIDOS_CLIENTE.ID_EMPRESA,'#10' ' +
' V_PEDIDOS_CLIENTE.ID_CLIENTE,'#10' V_PEDIDOS_CLIENTE.NOMBRE,'#10' V_C' +
'LIENTES.NOMBRE_COMERCIAL,'#10' V_PEDIDOS_CLIENTE.REFERENCIA,'#10' V_PE' +
'DIDOS_CLIENTE.REFERENCIA_CLIENTE,'#10' V_PEDIDOS_CLIENTE.SITUACION,' +
#10' V_PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10' V_PEDIDOS_CLIENTE.CALLE,'#10' ' +
'V_PEDIDOS_CLIENTE.CODIGO_POSTAL,'#10' V_PEDIDOS_CLIENTE.POBLACION,'#10 +
' V_PEDIDOS_CLIENTE.PROVINCIA,'#10' V_PEDIDOS_CLIENTE.PERSONA_CONTA' +
'CTO,'#10' V_PEDIDOS_CLIENTE.TELEFONO,'#10' V_PEDIDOS_CLIENTE.OBSERVACI' +
'ONES,'#10' V_PEDIDOS_CLIENTE.INCIDENCIAS,'#10' V_PEDIDOS_CLIENTE.INCID' +
'ENCIAS_ACTIVAS,'#10' V_PEDIDOS_CLIENTE.FECHA_ALTA,'#10' V_PEDIDOS_CLIE' +
'NTE.FECHA_MODIFICACION,'#10' V_PEDIDOS_CLIENTE.USUARIO,'#10' V_PEDIDOS' +
'_CLIENTE.IMPORTE_NETO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_PORTE,'#10' V_PE' +
'DIDOS_CLIENTE.DESCUENTO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10 +
' V_PEDIDOS_CLIENTE.BASE_IMPONIBLE,'#10' V_PEDIDOS_CLIENTE.IVA,'#10' V' +
'_PEDIDOS_CLIENTE.IMPORTE_IVA,'#10' V_PEDIDOS_CLIENTE.IMPORTE_TOTAL,' +
#10' V_PEDIDOS_CLIENTE.ID_FORMA_PAGO,'#10' EMPRESAS.NOMBRE AS NOMBRE_' +
'EMPRESA,'#10' EMPRESAS.TELEFONO_1 as TELEFONO_1_EMPRESA,'#10' EMPRESAS' +
'.FAX as FAX_EMPRESA'#10'FROM'#10' V_PEDIDOS_CLIENTE'#10' LEFT OUTER JOIN E' +
'MPRESAS ON (V_PEDIDOS_CLIENTE.ID_EMPRESA = EMPRESAS.ID)'#10' LEFT O' +
'UTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_PEDIDOS_CLIENTE.ID_CL' +
'IENTE)'#10'WHERE'#10' V_PEDIDOS_CLIENTE.ID = :ID'#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -208,22 +209,10 @@ object RptPedidosCliente: TRptPedidosCliente
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'FECHA_ENTREGA'
TableField = 'FECHA_ENTREGA'
end
item
DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
@ -245,12 +234,88 @@ object RptPedidosCliente: TRptPedidosCliente
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'CODIGO_CLIENTE'
TableField = 'CODIGO_CLIENTE'
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'ENTREGAR_A'
TableField = 'ENTREGAR_A'
DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS'
end
item
DatasetField = 'INCIDENCIAS_ACTIVAS'
TableField = 'INCIDENCIAS_ACTIVAS'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
end
item
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'NOMBRE_EMPRESA'
TableField = 'NOMBRE_EMPRESA'
end
item
DatasetField = 'TELEFONO_1_EMPRESA'
TableField = 'TELEFONO_1_EMPRESA'
end
item
DatasetField = 'FAX_EMPRESA'
TableField = 'FAX_EMPRESA'
end>
end>
Name = 'Informe_Cabecera'
@ -264,21 +329,8 @@ object RptPedidosCliente: TRptPedidosCliente
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE'
@ -286,29 +338,39 @@ object RptPedidosCliente: TRptPedidosCliente
Size = 255
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'PERSONA_CONTACTO'
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_CLIENTE'
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 10
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'POBLACION'
DataType = datString
@ -320,18 +382,90 @@ object RptPedidosCliente: TRptPedidosCliente
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'ENTREGAR_A'
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'IVA'
DataType = datFloat
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
end
item
Name = 'NOMBRE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'FAX_EMPRESA'
DataType = datString
Size = 25
end>
ReadOnly = True
end
@ -349,18 +483,14 @@ object RptPedidosCliente: TRptPedidosCliente
SQL =
'SELECT DET.ID, DET.ID_PEDIDO,'#10' DET.POSICION, DET.TIPO_DETA' +
'LLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as C' +
'ONCEPTO, DET.CANTIDAD,'#10' DET.UNIDAD_MEDIDA, DET.IMPORTE_UNI' +
'DAD - (DET.IMPORTE_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) a' +
's IMPORTE_UNIDAD, DET.IMPORTE_TOTAL,'#10' ARTICULOS_PROVEEDORE' +
'S.REFERENCIA_PROV as REFERENCIA_PROVEEDOR,'#10' ARTICULOS.REFE' +
'RENCIA_FABR as REFERENCIA_FABRICANTE'#10'FROM PEDIDOS_PROVEEDOR_DETA' +
'LLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTICUL' +
'OS.ID)'#10'LEFT JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = DE' +
'T.ID_PEDIDO)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROV' +
'EEDORES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.I' +
'D_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10#10'WHERE DET.ID_PED' +
'IDO = :ID_PEDIDO AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID' +
'_PEDIDO, DET.POSICION;'#10#10#10#10#10#10#10
'ONCEPTO, DET.CANTIDAD,'#10' DET.IMPORTE_UNIDAD - (DET.IMPORTE_' +
'UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, D' +
'ET.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCIA' +
'_PROVEEDOR'#10'FROM PEDIDOS_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ART' +
'ICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN PEDIDOS_CLI' +
'ENTE ON (PEDIDOS_CLIENTE.ID = DET.ID_PEDIDO)'#10#10'WHERE DET.ID_PEDID' +
'O = :ID_PEDIDO AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_P' +
'EDIDO, DET.POSICION;'#10#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -387,10 +517,6 @@ object RptPedidosCliente: TRptPedidosCliente
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
@ -403,10 +529,6 @@ object RptPedidosCliente: TRptPedidosCliente
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'REFERENCIA_FABRICANTE'
TableField = 'REFERENCIA_FABRICANTE'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
@ -443,12 +565,7 @@ object RptPedidosCliente: TRptPedidosCliente
end
item
Name = 'CANTIDAD'
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@ -462,11 +579,6 @@ object RptPedidosCliente: TRptPedidosCliente
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FABRICANTE'
DataType = datString
Size = 255
end>
ReadOnly = True
end
@ -885,16 +997,11 @@ object RptPedidosCliente: TRptPedidosCliente
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Size = 32765
end
item
Name = 'CANTIDAD'
DataType = datFloat
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@ -908,11 +1015,6 @@ object RptPedidosCliente: TRptPedidosCliente
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FABRICANTE'
DataType = datString
Size = 255
end>
Params = <
item
@ -945,21 +1047,8 @@ object RptPedidosCliente: TRptPedidosCliente
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE'
@ -967,25 +1056,39 @@ object RptPedidosCliente: TRptPedidosCliente
Size = 255
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'PERSONA_CONTACTO'
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_CLIENTE'
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 10
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'POBLACION'
DataType = datString
@ -997,14 +1100,90 @@ object RptPedidosCliente: TRptPedidosCliente
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'ENTREGAR_A'
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'IVA'
DataType = datFloat
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
end
item
Name = 'NOMBRE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO_1_EMPRESA'
DataType = datString
Size = 25
end
item
Name = 'FAX_EMPRESA'
DataType = datString
Size = 25
end>
Params = <
item

17
Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesImpresionPedidosCliente.dfm
View File

@ -1,9 +1,9 @@
inherited fDialogOpcionesImpresionPedidosCliente: TfDialogOpcionesImpresionPedidosCliente
Caption = 'Opciones para pedido a proveedor'
ClientHeight = 239
Caption = 'Opciones para pedido de cliente'
ClientHeight = 197
ClientWidth = 393
ExplicitWidth = 399
ExplicitHeight = 271
ExplicitHeight = 229
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
@ -11,13 +11,13 @@ inherited fDialogOpcionesImpresionPedidosCliente: TfDialogOpcionesImpresionPedid
ExplicitWidth = 393
end
inherited Bevel3: TBevel
Top = 195
Top = 153
Width = 393
ExplicitTop = 195
ExplicitWidth = 393
end
inherited pnlBotones: TPanel
Top = 197
Top = 155
Width = 393
ExplicitTop = 197
ExplicitWidth = 393
@ -36,8 +36,8 @@ inherited fDialogOpcionesImpresionPedidosCliente: TfDialogOpcionesImpresionPedid
inherited lblInstruccion: TLabel
Width = 343
Margins.Bottom = 10
Caption = 'Indique las siguiente opciones para el pedido a proveedor:'
ExplicitWidth = 328
Caption = 'Indique las siguiente opciones para el pedido de cliente:'
ExplicitWidth = 314
end
inherited Label2: TLabel
Top = 31
@ -49,7 +49,7 @@ inherited fDialogOpcionesImpresionPedidosCliente: TfDialogOpcionesImpresionPedid
end
inherited pnlCuerpo: TPanel
Width = 393
Height = 129
Height = 87
ExplicitWidth = 393
ExplicitHeight = 129
object cbVerPrecios: TCheckBox
@ -73,6 +73,7 @@ inherited fDialogOpcionesImpresionPedidosCliente: TfDialogOpcionesImpresionPedid
Checked = True
State = cbChecked
TabOrder = 1
Visible = False
end
end
inherited ActionList1: TActionList

24
Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm
View File

@ -309,13 +309,14 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton [4]
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = False
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox [5]
inherited FontName: TJvFontComboBox
Left = 399
Top = 0
ExplicitLeft = 399
@ -324,12 +325,18 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
inherited FontSize: TEdit
Left = 544
Top = 0
Width = 90
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 90
end
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 27
end
inherited UpDown1: TUpDown [8]
Left = 0
@ -337,38 +344,37 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton6: TToolButton [9]
inherited ToolButton6: TToolButton
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton7: TToolButton [10]
inherited ToolButton7: TToolButton
Left = 83
Top = 27
ExplicitLeft = 83
ExplicitTop = 27
end
inherited ToolButton8: TToolButton [11]
inherited ToolButton8: TToolButton
Left = 150
Top = 27
ExplicitLeft = 150
ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
inherited ToolButton12: TToolButton
Left = 233
Top = 27
ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton [13]
inherited ToolButton9: TToolButton
Left = 241
Top = 27
ExplicitLeft = 241
ExplicitTop = 27
end
inherited ToolButton10: TToolButton [14]
inherited ToolButton10: TToolButton
Left = 386
Top = 27
ExplicitLeft = 386

16
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosClienteReport.dfm Normal file
View File

@ -0,0 +1,16 @@
inherited fEditorPedidosClientePreview: TfEditorPedidosClientePreview
Caption = 'Previsualizar el pedido de cliente'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited TBXDock: TTBXDock
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 540
object TBXItem58: TTBXItem [1]
Action = actExportarRTF
Images = SmallImages
end
end
end
end