Home

Ícono - Biblioteca Digital Universidad del Valle

1. ba El ve X gt art culo 20007000009 Fecha 01 07 2009 Operaciones Cliente STOCK gt Eu ELEMENTOS DEL COSTO Nombre COLOR SUPER amp 0 GR 4 i n CONDIMENTOS Und x Und de Almac i Costo definid do el afi 5 1 n Imac ES nido iniciando el a o SUL UE es nidad Almac UNIDAD y OSTO FIJOS Ancho 113 Largo Alto 16 Peso neto B Peso bruto 52 Volumen 0 OSTO CENTROS DE SERVICIO d aes d Ent FRE OSTO CENTROS DE CAPACIDAD xd OSTO CENTROS DE DISTRIBUCION Descripci n Material Unidad Medida Consumo Desp Consumo Costo Sim Costo CostoSim Lote E x Unidad Real Total Unt Material Sim Unidad Materiales Maiz Partido KILOS Ie 0 0418119 10 0 0 04645761 66 31 49 059 53 956 Tartrazma SP KILOS 0 0007666 10 0 0 00085172 15750 13 21 463 23 656 ACHIOTE ENTERO Kilos 0 0020806 10 0 0 00232288 4000 g 14 365 16 3 E Sal Polvillo KILOS i 0 0153310 10 0 0 01703446 206 4 5 615 6 2 El COSTO TOTAL MATERIALES DIRECTOS gt 57 91 004 100 Ruta Maquina Aist Proc TOTAL M O D EN DEPRECIACI N CENTROS DE CENTROS DE CENTROS DE Totales Uni HORAS SERVICIO CAPACIDAD DISTRIBUCION 1 MOLOO2 0 16 0 12 0 28 1 108 74 1 225 97 9 473 73 0 00
2. ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Principal en la funci n TieneDatos End Sub Function SetPathApp RutaApp RutaFotos End Function Start En este modulo se encuentran las funciones de incializaci n de la aplicaci n y seguridad Option Compare Database Option Explicit Esta funci n tiene como objetivo establecer valores iniciales de la aplicaci n Function StartApp Inhabilita la tecla Shitf SetBypassProperty Oculta los objetos Applicationl nformation Establece los valores para las rutas SetPath Actualiza la conexi n a las tablas si se ha cambiado de directoria RefreshLink End Function Inhabilita la tecla Shift Function ChangeProperty strPropName As String varPropType varPropValue As Variant As Integer Dim dbs As Object prp As Variant Const conPropNotFoundError 3270 Set dbs CurrentDb On Error GoTo Change_Err dbs Properties strPropName varPropValue ChangeProperty True Change Bye Exit Function Change Err If Err 2 conPropNotFoundError Then Property not found Set prp dbs CreateProperty strPropName _ varPropType varPropValue dbs Properties Append prp Resume Next Else Unknown error ChangeProperty False Resume Change Bye End If End Function As Variant Este pro
3. BorraTabla cadSQL rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaDatosFinales rst Close dbs Close End Function GetSQL Este modulo almacena el c digo que manipula sentencias SQL En este modulo se encuentran todas las sentencias SQL Option Compare Database Option Explicit Function EliminaRegistros ByVal cadSQL As String Dim dbs As Database rst As Recordset As Integer On Error GoTo ControlError IniRecordset dbs rst cadSQL If Not rst EOF Then rst MoveLast rst MoverFirst For i 1 To rst RecordCount rst Delete rst MoveNext Next 97 End If ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number amp vbCr _ amp Descripci n Err Description amp vbCr _ amp M dulo de Elimina Registros rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Julio 02 de 2006 Descripci n Funci n de proposito general la cual permite pasar una cadena con una instrucci n UPDATE Function ActualizaTabla ByVal strsQL As String Dim dbs As Database qdf As QueryDef On Error GoTo ControlError Devuelve una referencia a la base de datos activa Set dbs CurrentDb Crea un nuevo objeto QueryDef Set qdf 2 dbs CreateQueryDef strSQL
4. 18 270 00 206 00 239 00 840 00 974 00 5 2880000 5 33 408 00 660 00 766 00 800 00 928 00 900 00 1 044 00 7 587 00 8 801 00 6 466 00 7 501 00 5 2 400 00 2 784 00 12 000 00 13 920 00 Reposicion Simulado cotexportaci n 4 594 00 4 800 00 5 280 00 18 087 00 18 900 00 20 790 00 237 00 247 00 272 00 965 00 1 008 00 1 109 00 33 074 00 34 560 00 38 016 00 758 00 792 00 871 00 919 00 960 00 1 056 00 1 034 00 1 080 00 1 188 00 8 713 00 9 104 00 10 015 00 7 426 00 7 759 00 8 535 00 2 756 00 2 880 00 3 168 00 13 781 00 5 14 400 00 15 840 00 E CONSOLIDADO COSTOS x UNIDAD DE ALMACENAMIENTO Este aparte del informe final discrimina cada uno de los costos calculados anteriormente y consolida toda la informaci n suministrando un costo final para el producto OSTO CENTROS DE SERVICIO OSTO CENTROS DE CAPACIDAD OSTO CENTROS DE DISTRIBUCION 58 Finalmente el costo del COLOR SUPER 60 gr es de 129 a costo de materia prima est ndar La composici n del costo es 44 32 Costo de los materiales 4 57 Costo de la Mano de Obra Directa 51 11 CIF Observamos que el Sistema de Costos en Microsoft Access se constituye en una herramienta amigable f cil de comprender y manejar El hecho de evaluar los costos de un art culo en diferentes escenarios de costos de materias primas y validando diferentes opciones de ruta
5. Una vez obtenida la informaci n se procede a elaborar las tablas y los formularios en Microsoft Office Access con los campos solicitados Ampliaremos la informaci n de cada una de las tablas para mayor compresi n del sistema Tabla 1 Art culos de Empresa Tabla maestra de art culos productos de la empresa en cuesti n donde se relaciona el c digo del art culo propio de la entidad nombre cliente unidades de almacenamiento especificaciones f sicas y t cnicas tama os de lote de producci n y l neas de producci n del art culo El modelo se desarroll con una muestra de 10 art culos 29 Microsoft Access Articulo Tabla 8 3 0 COLOR SUPER 60 GR STOCK 11 62 NARANJA 1 009 CONDIMENTOS 3000100001 COLOR CORRIENTE 125 GR STOCK UNIDAD STOCK 1100 19 125 127 4 NARANJA 3500 01 01 2009 CONDIMENTOS 3000100002 COLOR ECONOMICO ARROBA 3 125 STOCK UNIDAD 1 STOCK 2850 42 3125 3130 NARANJA 139 01 01 2009 CONDIMENTOS 3000100005 COLOR SUPER 125 GRT A T STOCK UNIDAD 1 STOCK 1100 19 125 127 4 NARANJA 3500 01 01 2009 CONDIMENTOS 3000100007 COLOR SUPER KIT 125 GR GUIS AJC STOCK UNIDAD 1 STOCK 1100 19 245 257 NARANJA BL 900 01 01 2009 CONDIMENTOS 3000100008 COLOR DE RAIZ 60 GR STOCK UNIDAD 1 STOCK 1100 16 60 62 MOSTAZA CL 3000 01 01 2009 CONDIMENTOS 3000100008 COLOR DE RAIZ 125 GR STOCK UNIDAD 1 STOCK 1100 19 125 127 4 MOSTAZA CL 8 1 01 2009 CONDIMENTOS 30008000007 GUISASON 60 GR STOCK UNIDAD
6. Fechas i rst Update Exit For End If Next ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n BuscaCostoReal2 CodPT rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Julio 05 de 2006 Descripci n Toma toda la informaci n de Costosmp agrupada y la graba en historicomp Function LlenaHistoricoMP Dim dbs As Database rstMP As Recordset rstHist As Recordset cadSQL As String Dim i As Long j As Long On Error GoTo ControlError Antes de iniciar el proceso borra los datos de Historicomp BorraTabla DELETE FROM historicomp cadSQL SELECT Codigo OMP cost fecha cost estandar cost real _ cost reposicion cost exportacion cost simulado FROM costosmp amp _ GROUP BY Codigo OMP cost fecha cost estandar cost real amp _ cost reposicion cost exportacion cost simulado HAVING cost estandar 15 Not Null amp _ And cost estandar gt O AND cost real Is Not Null And cost real gt 0 AND cost reposicion 15 Not Null And cost reposicion gt 0 AND cost exportacion 15 Not Null amp _ And cost exportacion gt 0 AND cost simulado Is Not Null And cost simulado 20 IniRecordset dbs rstMP cadSQL cadSQL SELECT hmpcodigo hmpfecha hmptipo hmpvalor FROM historicomp IniRecordset dbs rstHist cadSQL rstMP MoveLast rs
7. Microsoft Access Linea Tabla ESPECIALES STOCK EXPORTACION CLIENTES 33 Tabla 6 Secci n Define las posibles familias de productos con sus respectivos c digos Microsoft Access Seccion Tabla CONDIMENTOS ALIMENTO AVES Tabla 7 BOM Lista de Materiales Se relacionan los c digos de los componentes materias primas que integran un art culo o producto especificando la cantidad de material necesario para la elaboraci n de una unidad de almacenamiento de producto final as como su porcentaje de desperdicio Microsoft Access ListaMateriales Tab Las cantidades reales con todas las cifras decimales descritas en estos cuatro campos son en su orden EE NES AMNEM TEN COLOR SUPER 60 GR gt ACHIOTE ENTERO 0 00209059 COLOR SUPER 60 GR Tartrazina SP y 0 00076655 COLOR SUPER 60 GR Sal Polvillo 22 02 2010 v 002 n COLOR SUPER 60 GR Maiz Partido 22 02 2010 COLOR CORRENTE 125 GR ACHIOTE ENTERO 09 09 2009 eei COLOR CORRENTE 125 GR Tartrazina SP 09 09 2009 0 00 COLOR CORRENTE 125 GR Sal Polvilo 09 09 2009 0 03 10 00 COLOR CORRENTE 125 GR Maiz Partido 09 09 2009 0 09 10 00 COLOR CORRENTE 125 GR Lamina Color Co 09 09 2009 0 00 3 00 COLOR ECONOMICO ARROBA 3 125 GR ACHIOTE ENTERO 09 09 2009 0 17 10 00 COLOR ECONOMICO ARROBA 3 125 GR Tartrazina SP 09 09 2009 0 02 10 00 COLOR ECONOMICO ARROBA 3 125 GR Sal Polvilo 09 09
8. Next If vlltems Then vlitems Else vlltems Left vlltems Len vlltems 1 End If SelecLista vlltems End Function Function CoincideCadena ByVal CadBusqueda As String ByVal cadABuscar As String As Boolean Dim Dev As Boolean Pos As Integer Dev False Pos InStr 1 CadBusqueda cadABuscar vbTextCompare If Pos gt O Or IsNull Pos Then Dev True End If CoincideCadena Dev End Function Function Ruta vgRuta Application CurrentProject Path End Function Autor Reinel Gallego Hansson Fecha Julio 1 de 2009 Descripci n Verifica si un recordset contiene datos Function TieneDatos rst As Recordset ByVal cadSQL As String As Boolean Dim dbs As Database Dev As Boolean On Error GoTo ControlError IniRst dbs rst cadSQL If rst EOF Then Dev True Else Dev False End If TieneDatos Dev ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Principal en la funci n TieneDatos dbs Close End Function Function getFileName FileName As String Muestre el cuadro de di logo Abrir archivo de Office para elegir un nombre de archivo para el registro del empleado actual Si el usuario selecciona un archivo mu strelo en el control de imagen Dim result As Integer With Application FileDialog msoFileDialogFilePicker Title 2 Seleccione la imagen del empleado Filters Add
9. _ acudZalistamiento acud2proceso AS Total horas acud2mod acud2cifv acud2ciffsd _ AnalisisCostUniD2 acud2depreciasion acud2servicios acud2capacidad acud2distribucion _ acud2mod acud2cifv acud2ciffsd acud2depreciasion acud2servicios _ acud2capacidad acud2distribucion AS Totales Totales arttamanolote AS Unitario _ Art culo arttamanolote FROM Art culo INNER JOIN M quina INNER JOIN AnalisisCostUniD2 ON M quina magid amp _ AnalisisCostUniD2 acud2maq ON Art culo artid AnalisisCostUniD2 acud2pt 8 WHERE acud2fecha Format Fecha mm dd yyyy amp ORDER BY acud2pt 86 IniRecordset dbs rst cadSQL cadSQL SELECT coaart culo coafecha coaestandar coareal coareposicion coaexportacion coasimulado _ FROM costosArt culos WHERE coafecha amp Format Fecha mm dd yyyy ORDER BY coaart culo I niRecordset dbs rstCostos cadSQL SELECT coaart culo 0 coafecha 1 coaestandar 2 coareal 3 coareposicion 4 coaexportacion 5 coasimulado 6 amp _ rst MoveLast rst MoveFirst rstCostos MoveLast rstCostos MoveFirst CodPT rst Fields 0 Do While Not rst EOF Sumo los valores de todas las columnas de Costo y las divido entre el Tama o de lote Do While CodPT rst Fields 0 Total Total rst Fields 15 rst MoveNext If rst EOF Then Exit Do Loop CodCostos rstCostos Fields 0 r
10. Dim dbs As Database rst As Recordset cadSQL As String CadDel As String Dim rstRutas As Recordset rstTmp As Recordset strFiltro As String Dim strTemp As String i As Long CodPT As String CodMaq As String On Error GoTo ControlError cadSQL SELECT acud2pt acud2maq FROM AnalisisCostUniD2 WHERE acud2fecha Format Fecha mm dd yyyy amp ORDER BY acud2pt IniRecordset dbs rst cadSQL cadSQL SELECT rutarticulo rutmaquina FROM ruta WHERE strTemp cadSQL Do While Not rst EOF strFiltro rutarticulo rst Fields 0 And rutmaquina rst Fields 1 strTemp strTemp strFiltro IniRecordset dbs rstRutas strTemp If rstRutas EOF Then CadDel DELETE FROM AnalisisCostUniD2 WHERE acud2pt rst Fields 0 _ AND acud2maq amp rst Fields 1 AND acud2fecha Format Fecha mm dd yyyy x BorraTabla CadDel End If Set rstRutas Nothing rst MoveNext strTemp cadSQL Loop rst Close dbs Close ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n EliminaMaqSob End Function Sub EliTablasCostos Dim cadSQL As String cadSQL DELETE FROM AnalisisCostUniD1 BorraTabla cadSQL cadSQL DELETE FROM AnalisisCostUniD2 BorraTabla cadSQL cadSQL DELETE FROM AnalisisCostUniM BorraTabla cadSQL c
11. Ejecutar QueryDef qdf Execute qdf Close ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n ActualizaTabla Set dbs Nothing End Function Function BorraTabla ByVal strSQL As String Dim dbs As Database qdf As QueryDef On Error GoTo ControlError Devuelve una referencia a la base de datos activa Set dbs CurrentDb Crea un nuevo objeto QueryDef Set dbs CreateQueryDef strSQL 98 Ejecutar QueryDef Execute qdf Close ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n BorraTabla qdf Close Set dbs Nothing End Function Autor Reinel Gallego Hansson Fecha Julio 02 de 2006 Descripci n Funci n de proposito general la cual permite pasar una cadena con una instrucci n INSERT INTO Function InsertaDatos ByVal strSQL As String Dim dbs As Database On Error GoTo ControlError Set dbs CurrentDb dbs Execute strSQL Debug Print strSQL ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Principal en la funci n InsertaDatos dbs Close End Function Procedimiento temporal
12. Tabla E Archivo Edici n Ver Insertar Formato Registros Herramientas Ventana AdobePDF i Mantenimientos Procesos COLOR SUPER 60 GR MAQUINA AUTOMATI COLOR SUPER 60 GR MEZCLADORA VERTICAL N 1 COLOR SUPER 60 GR MOLINO MICROPULVERIZADOR COLOR SUPER 60 GR NO INDUSTRIAL DE DISCO COLOR CORRIENTE 125 GR MAQUINA AUTOMATI COLOR CORRIENTE 125 GR MEZCLADORA VERTI COLOR CORRIENTE 125 GR MOLINO MICROPULVERIZADOR COLOR CORRIENTE 125 GR MOLINO INDUSTRIAL DE DISCO COLOR ECONOMICO ARROBA 3 125 GR MEZCLADORA VERTICAL N 1 COLOR ECONOMICO ARROBA 3 125 GR MOLINO MICROPULVERIZADOR COLOR ECONOMICO ARROBA 3 125 GR MOLINO INDUSTRIAL DE DISCO COLOR SUPER 125 GR T A MAQUINA AUTOMATICA COLOR SUPER 125 GR T A MEZCLADORA VERTICAL N 1 COLOR SUPER 125 GR T A MOLINO MICROPULVERIZADOR COLOR SUPER 125 GR T A MOLINO INDUSTRIAL DE DISCO COLOR SUPER KIT 125 GR GUIS AJO MAQUINA AUTOMATICA COLOR SUPER KIT 125 GR GUIS AJO MEZCLADORA VERTICAL N 1 COLOR SUPER KIT 125 GR GUIS AJO MOLINO MICROPULVERIZADOR COLOR SUPER KIT 125 GR GUIS AJO MOLINO INDUSTRIAL DE DISCO COLOR DE RAIZ 60 GR MAQUINA AUTOMATICA COLOR DE RAIZ 60 GR MEZCLADORA VERTICAL N 1 COLOR DE RAIZ 60 GR MOLINO MICROPULVERIZADOR COLOR DE RAIZ 60 GR MOLINO INDUSTRIAL DE DISCO COLOR DE RAIZ 125 GR UINA AUTOMATICA N N COLOR DE RAIZ 125 GR MOLINO MICROPULVERIZADOR COLOR DE RAIZ 125 GR MOLINO INDUSTRIAL DE DISCO GUISASON 60 GR MAQUINA AUTOMATICA GUISASON 60 GR MEZCLADORA VERTICAL N 1
13. 30 27 151 33 1 452 84 13 442 90 Moro 025 0 43 166944 1 845 96 1426477 0 00 45 58 227 86 2 187 57 2024121 1 2001 025 022 0 47 1 2 2031 49 15 698 45 0 00 50 16 25077 240743 22275 55 050 124 4835 1 534635 41314 19 659 14 132 01 659 95 633572 5928254 Registro 1 1 ONP de 10 C digo del Producto Terminado m REGEL ES Parametro ES TF Reporte C ES Analisis de ES cono Ver Inconsistencias Es el icono por medio del cual puedo ver el reporte general de inconsistencias El programa valida que el art culo tenga ruta lista de materiales tama o de lote que los costos de los materiales y las m quinas est n definidos etc de no ser as relaciona estas anomal as en el reporte E Microsoft Access Reporte de Costos Mantenimientos Procesos ic Exportar Informe de Inconsistencias Codos J MPAT 30001000002 0120722009 Verificar valores de CostosMP 30001000011 E 0120722009 Verificar valores de CostosMP 30001000021 0120722009 Verificar valores de CostosMP 30001000074 0120722009 Verificar valores de CostosMP 30001000082 01 07 2009 Verificar valores de CostosMP 20001000083 0120722009 Verificar valores de CostosMP 1 1 1 30001000055 1 10120772009 Verificar valores de CostosMP 1 1 1 30008000001 10 10120722009 Veri
14. All Files Filters Add J PEGs jpg Filters Add Bitmaps bmp FilterlIndex 3 AllowMultiSelect False InitialFileName CurrentProject Path result Show If result lt gt 0 Then FileName Trim Selectedltems ltem 1 Me ImagePath Visible True Me ImagePath SetFocus Me ImagePath Text fileName Me Nombre SetFocus Me ImagePath Visible False End If End With End Function Function GetFromINI sSection As String sKey As String sDefault As String slniFile As String Dim sBuffer As String IRet As Long sBuffer String 255 0 Llama a la DLL IRet GetPrivateProfileString sSection sKey sBuffer Len sBuffer slniFile If IRet 2 0 Then Fallo de la DLL save default If sDefault lt gt Then AddToINI sSection sKey sDefault slniFile GetFromlNI sDefault Else DLL con existo return string GetFromINI Left sBuffer InStr sBuffer Chr 0 1 End If End Function Devuelve True si todo va bien Si la secci n no existe la crea Function AddTolNl sSection As String sKey As String sValue As String slniFile As String As Boolean Dim IRet As Long Llama a la DLL IRet WritePrivateProfileString sSection sKey sValue slniFile AddToINI IRet End Function Sub OpenFile Dim Valor As String On Error GoTo ControlError GetFroml NI General Opcion E AReinelVProdispelVAdco ini AddToINI General Opcion 3
15. Dato As Byte Dim Poslni As Long On Error GoTo ControlError cadSQL con_HistoricoPT IniRecordset dbs rst cadSQL rst Filter hptfecha between Fecha Set rstFiltro rst OpenRecordset If rstFiltro EOF Then MsgBox No hay informaci n para procesar Verifique GoTo ControlError End If rstFiltro MoveLast rstFiltro MoveFirst Regs rstFiltro RecordCount ReDim Valor Regs ReDim Tipo Regs ReDim Total Regs Fori 1 To Regs Valor i rstFiltro Fields 6 Tipo i rstFiltro Fields 4 rstFiltro MoveNext Next Dato Tipo 1 Poslni 1 For i 1 To Regs 1 If Dato Tipo i 1 Then If Valor i 1 lt gt 0 And Valor i lt gt 0 Then Total i Valor i 1 Valor i Valor i End If Else If Valor i lt gt O And Valor Poslni lt gt O Then Total i Valor i Valor PosIni Valor PosIni Dato Tipo i 1 1 End If Next rstFiltro MoveFirst rstFiltro MoveNext Dato Tipo 1 For 1 To Regs 1 rstFiltro Edit If Dato Tipo i 1 Then rstFiltro Fields 7 Total i rstFiltro Update Else rstFiltro MovePrevious rstFiltro Edit rstFiltro Fields 8 Total i Dato Tipo i 1 rstFiltro Update rstFiltro MoveNext End If rstFiltro MoveNext Next ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n
16. Descripci n Err Description _ amp en el m dulo de Costos en la funci n GrabaCostosPT rstPT Close rstHist Close dbs Close End Function 91 Function CalculaHistoricoPT ByVal Fecha Dim dbs As Database rst As Recordset rstFiltro As Recordset cadSQL As String i As Long Dim Tipo As Single Valor As Single Regs As Long Total As Single Dato As Byte Dim Poslni As Long On Error GoTo ControlError cadSQL con_HistoricoPT IniRecordset dbs rst cadSQL rst Filter hptfecha between Fecha Set rstFiltro rst OpenRecordset If rstFiltro EOF Then MsgBox No hay informaci n para procesar Verifique GoTo ControlError End If rstFiltro MoveLast rstFiltro MoveFirst Regs rstFiltro RecordCount ReDim Valor Regs ReDim Tipo Regs ReDim Total Regs Fori 1 To Regs Valor i rstFiltro Fields 6 Tipo i rstFiltro Fields 4 rstFiltro MoveNext Next Dato Tipo 1 Poslni 1 For i 1 To Regs 1 If Dato Tipo i 1 Then If Valor i 1 lt gt 0 And Valor i lt gt 0 Then Total i Valor i 1 Valor i Valor i End If Else If Valor i lt gt O And Valor Posini lt gt 0 Then Total i Valor i Valor PosIni Valor Poslni Dato Tipo i 1 Poslni 1 End If Next rstFiltro MoverFirst 92 rstFiltro MoveNext Dato Tipo 1 For 1 To Regs 1 rstFiltro Edit If Dato Tipo i 1 Then rstFiltro Fields 7 Total i
17. EOF Then MsgBox No hay registros para procesar Verifique Reporte de Costos Dev True 72 Else Do While Not rstArt culo EOF rstA AddNew rstA Fields 0 rstArt culo Fields 0 rstA Fields 1 Fecha rstA Fields 2 1 rstA Update rstArt culo MoveNext Loop End If GrabaCostosM Dev ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n GrabaCostosM End Function Autor Reinel Gallego Hansson Fecha Junio 29 de 2006 Descripci n Graba la informaci n referente a Materias Primas y M quinas en las tablas AnalisisCostUniD1 y AnalisisCostUniD2 Function IniciaGrabacionCostos ByVal Fecha Dim dbs As Database rstMP As Recordset rstMaq As Recordset cadSQL As String Dim i As Long On Error GoTo ControlError cadSQL SELECT limart culo cotfecha cotmateriaprima mapunidadcompra limconsumo limporcentajedesperdicio _ cotestandar cotreal cotreposicion cotexportaci n cotsimulado arttamanolote _ FROM Art culo INNER JOIN MateriaPrima INNER JOIN ListaMateriales ON MateriaPrima mapid amp _ ListaMateriales limmateriaprima ON Art culo artid ListaMateriales limart culo INNER JOIN 8 _ CostoMateriaPrima ON MateriaPrima mapid CostoMateriaPrima cotmateriaprima WHERE cotfecha Format Fecha mm dd yyyy X
18. copt simulado FROM costospt IniRecordset dbs rstPT cadSQL cadSQL SELECT hptcodigo hptfecha hpttipo hptvalor FROM historicopt IniRecordset dbs rstHist cadSQL rstPT MoveLast rstPT MoveFirst Fori 1 To rstPT RecordCount Forj 2 To 7 rstHist AddNew rstHist Fields 0 rstPT Fields 0 rstHist Fields 1 rstPT Fields 1 Select Case j Case 2 rstHist Fields 2 1 Costo Est ndar rstHist Fields 3 rstPT Fields j Case 3 rstHist Fields 2 2 2 Costo Real rstHist Fields 3 rstPT Fields j Case 4 rstHist Fields 2 2 3 Costo Real2 rstHist Fields 3 rstPT Fields j Case 5 rstHist Fields 2 4 Costo Reposici n rstHist Fields 3 rstPT Fields j Case 6 rstHist Fields 2 5 Costo Exportaci n rstHist Fields 3 rstPT Fields j Case 7 rstHist Fields 2 2 6 Costo Simulado rstHist Fields 3 rstPT Fields j End Select rstHist Update Next rstPT MoveNext Next ActualizaTabla UPDATE HistoricoPT SET hptvalor 0 WHERE hptvalor Null ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n GrabaCostosPT rstPT Close rstHist Close dbs Close End Function Function CalculaHistoricoPT ByVal Fecha Dim dbs As Database rst As Recordset rstFiltro As Recordset cadSQL As String i As Long Dim Tipo As Single Valor As Single Regs As Long Total As Single
19. el sistema de costos de fabricaci n para la empresa Alimentos Guisas n de Colombia S A tomando como muestra 10 art culos y teniendo en cuenta las necesidades y requerimientos del usuario Fue necesario conocer las m quinas validar sus tiempos de cuadre tiempos de ejecuci n y rendimientos para poder definir las rutas de producci n existentes para la elaboraci n de los art culos La asignaci n de los materiales no est claramente definida en la compa a motivo por el cual fue necesario definir la composici n de los productos y as crear la lista de materiales BOM para cada uno de los art culos 61 Es importante resaltar que el modelo de costos dise ado en este trabajo cuenta con la ventaja de costear un producto en diferentes escenarios evaluando diferentes costos de materias primas y diferentes opciones de Rutas para la elaboraci n del art culo lo que permite decidir correctamente sobre los procesos y opciones de compra de materia prima El Sistema de Costos desarrollado consolida toda la informaci n contenida en las tablas y efect a diferentes c lculos con el fin de obtener el Costo Total de los Materiales Directos bas ndose en la lista de materiales Los Costos de Mano de Obra y CIF se obtienen teniendo en cuenta las rutas definidas de antemano para cada uno de los art culos Microsoft Access permite la generaci n de informes en este sistema de costos se generan reportes que relacionan los diferen
20. productos servicios clientes proyectos contratos reas geogr ficas etc Drivers Es un factor o criterio para asignar costos Elegir un driver correcto requiere comprender las relaciones entre recursos actividades y objetos de 3 Del R o Gonz lez Crist bal Costos IIl ECAFSA M xico 2000 11 costos Drivers de Recursos son los criterios o bases usadas para transferir costos de los recursos a las actividades Drivers de Actividad o Costo son los criterios utilizados para transferir costos desde una actividad a uno o varios objetos de costos Este driver se selecciona considerando c mo se relaciona la actividad con el objeto de costo y c mo la relaci n se puede cuantificar ABC no es un nuevo m todo de contabilidad financiera ya que el an lisis de actividades usa cifras obtenidas del sistema contable Su prop sito es proporcionar a los gerentes una herramienta para aumentar la rentabilidad por medio de la provisi n de informaci n basada en hechos para mejorar las decisiones estrat gicas operacionales y de precios que en forma conjunta determinar n el resultado financiero futuro de la empresa ABC es com nmente implementado independientemente de los actuales sistemas contables Los datos de gastos y ventas son obtenidos del sistema contable y del sistema de ventas pero el c lculo an lisis y preparaci n de informes ocurre fuera de estos sistemas Fases de la implementaci n de un Sistema de Costo ABC La imp
21. rquica de los conjuntos y los subconjuntos debe conservarse de tal manera que pueda tener acceso r pidamente por muchos programas de aplicaciones diferentes los cuales producen estimaciones de costos y listas de lugares de uso as como para la producci n de listas por parte de los materiales As mismo deber ser posible una modificaci n r pida a la estructura de la BOM conforme ocurran los cambios en el dise o del producto 4 2 1 Terminolog a b sica Campos elementos de datos es la unidad b sica de una base de datos Un campo puede ser por ejemplo el nombre de una persona Los nombres de los campos no pueden empezar con espacios en blanco y caracteres especiales No pueden llevar puntos ni signos de exclamaci n o corchetes Si pueden tener espacios en blanco en el medio La descripci n de un campo permite aclarar informaci n referida a los nombres del campo El tipo de campo permite especificar el tipo de informaci n que cargaremos en dicho campo esta puede ser Texto para introducir cadenas de caracteres hasta un m ximo de 255 Memo para introducir un texto extenso Hasta 65 535 caracteres Num rico para introducir n meros Fecha Hora para introducir datos en formato fecha u hora Moneda para introducir datos en formato n mero y con el signo monetario 22 Autonum rico en este tipo de Access numera autom ticamente el contenido S No campo l gico Este tipo de campo es
22. rstM Fields 7 Columna cost real rst Fields 13 rstM Fields 8 Columna cost reposicion rst Fields 14 rstM Fields 9 Columna cost exportacion rst Fields 15 rstM Fields 10 Columna cost simulado rst Update rstM MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n GrabaCostosMP rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 29 de 2006 Descripci n Graba la informaci n referente a las M quinas en AnalisisCostUniD2 Function GrabaCostosMaq rstM As Recordset ByVal Fecha Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError 75 cadSQL SELECT acud2id acud2pt acud2fecha acud2maq acud2alistamiento acud2proceso acud2mod acud2cifv acud2ciffsd acud2depreciasion 25 acud2capacidad _ acud2distribucion FROM AnalisisCostUniD2 IniRecordset dbs rst cadSQL Do While Not rstM EOF rst AddNew rst Fields 0 rstM Fields O Ruta rst Fields 1 rstM Fields 1 Art culo rst Fields 2 2 Fecha Fecha rst Fields 3 rstM Fields 3 M quina rst Fields 4 rstM Fields 4 Alistamiento Cuadre rst Fields 5 rstM Fields 5 Proceso rst Fields 6 rstM Fields 7 MOD rst Fields 7 rstM Fields 8 CIFV rst Fields 8 rstM Fields 9 CIFF rst Fiel
23. 1 STOCK 1100 16 60 62 MOSTAZA OS 3000 01 01 2009 CONDIMENTOS 5001200000 SEMILLA AVES ORNAMENTALES 2501 STOCK UNIDAD 1 STOCK 1500 20 250 253 6 NARANJA BL 2000 01 01 2009 ALIMENTO AVES 5001200000 SEMILLA AVES ORNAMENTALES 500 STOCK UNIDAD 1 STOCK 1500 24 500 504 NARANJA BL 30 1 01 2009 ALIMENTO AVES 2202 2010 C digo Fecha Nombre Unidad almac E Und x Und almac 5 Pesoneto Peso bruto Ancho Largo Lo Alto Volumen L 9 Densidad L g Area NE Color NARANJA Tama o lote Secci n CONDIMENTOS Costos Art culos Lista Materiales Ruta Fecha Estandar umm Semi Heal EE Reposici n Simulado Exportacion Tabla 2 M quinas y o Instalaciones Relaciona el c digo propio de la entidad y el nombre de las m quinas que interfieren en los procesos productivos 30 2 Microsoft Access Maquina Tabla MAQUINA AUTOMATICA MEZCLADORA VERTICAL N 1 MEZCLADORA VERTICAL N 2 MEZCLADORA HORIZONTAL MOLINO MICROPULVERIZADOR MOLINO INDUSTRIAL DE DISCO MOLINO TRITURADOR CORONA TAMIZADOR FECHA MOD CIFVAR CIFFIJ DEPREC SERVICIOS CAPAC DISTRIB Tabla 3 Materias Primas Describe todas las materias primas requeridas en la elaboraci n de los productos de la compa a Incluye su c digo propio de la entidad nombre unidad de compra y el nombre del proveedor principal 31 001 0001 000001 0
24. 2009 0 79 10 00 COLOR ECONOMICO ARROBA 3 125 GR Maiz Partido 09 09 2009 2 15 10 00 COLOR ECONOMICO ARROBA 3 125 GR Bolsa Polipropileno Color 3 12 09 09 2009 0 01 3 00 COLOR SUPER 125 GR A T ACHIOTE ENTERO 09 09 2009 0 00 10 00 COLOR SUPER 125 T Tartrazina SP 09 09 2009 0 00 10 00 COLOR SUPER 125 GRT A T Sal Polvilo 09 09 2009 0 03 10 00 COLOR SUPER 125 T Maiz Partido 09 09 2009 0 09 10 00 COLOR SUPER 125 GR T A T Lamina BOPP PEBD Color Su 09 09 2009 0 00 3 00 COLOR SUPER 125 GR T A T Lamina BOPP PEBD Color Su 09 09 2009 0 00 3 00 COLOR SUPER KIT 125 GR GUIS AJO ACHIOTE ENTERO 34 Nos detendremos en esta tabla para explicar claramente como se calculan las cantidades consumidas de las diferentes materias primas en una unidad de almacenamiento de producto final tomemos como ejemplo el COLOR SUPER 60 Unidad de COLOR SUPER 60GR_ Unidad 6o 0 Composici n COLOR SUPER MA Kg Porcentual Total KG Tanda Luego de obtener la composici n porcentual de participaci n de cada una de las materias primas en el producto final podr amos decir que la cantidad en kilogramos de las Materias Primas en una unidad de almacenamiento de Producto Terminado se obtendr a Composici n COLOR SU PER 60 gr _ EA a Porcentual EEEN Almacen PT 1 unid De Almacen PT 004181185 Achiote 3 006 0 00209059 Ta
25. 9 47373 0 00 30 27 151 33 145284 13442 90 2 MOLOO1 025 0 18 0 43 166944 1845 96 1426477 0 00 45 58 227 86 2187 57 202442 126 2MEZ002 025 0 221 0 471 183724 2031 491 15 698 45 0 00 50 161 25077 2 407 431 22 275 551 135 Registro 14 4 1 P PP de 10 C digo de la m quina gt EMcootbe LI Mi Costos EI NP ES AT TI IN MADE SES Explicaremos cada uno de estos grandes grupos haciendo referencia al origen de los datos y en caso de requerirse las operaciones generadas para la obtenci n de la informaci n de costos Tomaremos como ejemplo el art culo 30001000002 COLOR SUPER 60gr A DATOS GENERALES Microsoft Access Analisis de Costos Art culo 30001000002 Fecha Cliente STOCK v Nombre COLOR SUPER 60 GR Secci n CONDIMENTOS Und x Und de Almac Unidad Almac UNIDAD 0 Largo C g9 Alto Peso neto Peso bruto Volumen Densidad 0 Area 0 Color NARANJA Tol 51 Todos estos datos se encuentran en la tabla Art culos haciendo un enlace directo a este formulario B DESCRIPCI N DE MATERIALES _ n ire ut tal eus Real Total Unit Material Materiales ACHIOTE ENTERO KILOS 0 0020906 10 0 0 00232288 4200 15 610 17 0 E Sal Polvillo KILOS 10 0153310 10 0 0 01703446 5 615 6 1 O Detallado en una hoja de Excel tenemos 1 2 3 4 5 6 7 8 9
26. 920 00 13 781 00 14 400 00 15 840 00 Etiqueta Oferta Kit Super 01 07 2009 5 000 00 5 000 00 5 000 00 5 000 00 5 000 00 Lamina BOPP PEBD Mascomix 250 01 07 2009 13 300 00 15 428 00 15 274 00 15 960 00 5 17 556 00 Lamina BOPP PEBD Color Corrien 01 07 2009 13 300 00 15 428 00 15 274 00 15 960 00 17 556 00 Lamina BOPP PEBD Mascomix 500 01 07 2009 13 300 00 15 428 00 15 274 00 15 960 00 17 556 00 Lamina BOPP PEBD Guisason 60 g 01 07 2009 13 300 00 15 428 00 1527400 15 960 00 17 556 00 Lamina BOPP PEBD Color Super 6 01 07 2009 13 300 00 15 428 00 15 274 00 15 960 00 17 556 00 lamina RYYDD4DERDn Cnlar da Paiz n4 n7 20nna amp 13 ann nn 15 AIR nn amp 45 274 nn 15 nn 17 nn Registro IK 38 gt 1 de 38 n de la materia prima Temp Base de dato 40 El formulario usado para el diligenciamiento de las tarifas de los materiales en la tabla Costo Materia Prima fue C digo D01 0001 00000 Descripci n Unidad de compra Proveedor E Fecha 3 Est ndar Reposici n Promedio Simulado Exportaci n y E 01 07 2003 4 000 00 4 640 00 4 594 00 4 800 00 5 280 00 1 10 En esta ltima tabla se relacionan las tarifas calculadas cada una las m quinas Tarifa de mano de obra CIF Variables CIF Fijos Depreciaci n Servicios Capacidad y Distribuci n Una vez
27. AND limart culo IN amp _ SELECT acuart culo FROM AnalisisCostUniM ORDER BY limart culo IniRst dbs rstMP cadSQL cadSQL SELECT rutid rutart culo comfecha comm quina rutcuadre 73 arttamanolote rutejecucion _ AS Proceso rutcuadre proceso AS TotalHoras commod totalhoras AS MOD _ comcifvar totalhoras AS CIFV comciffij totalhoras AS CIFF comdepreciacion totalhoras amp _ AS DEPRECI ACI ON comservicios totalhoras AS SERVICIOS comcapacidad totalhoras _ AS CAPACIDAD comdistribucion totalhoras AS DISTRIBUCION rutejecucion arttamanolote amp _ commod comcifvar comciffi comdepreciacion comservicios comcapacidad comdistribucion amp _ FROM M quina INNER JOIN CostoM quina ON M quina maqid CostoM quina comm quina _ INNER JOIN Art culo INNER JOIN Ruta ON Art culo artid Ruta rutart culo 8 ON M quina maqid Ruta rutm quina WHERE comfecha amp Format Fecha mm dd yyyy E _ AND rutart culo IN SELECT acuart culo FROM AnalisisCostUniM ORDER BY rutart culo comfecha comm quina IniRst dbs rstMaq cadSQL Graba en las tablas dependientes de AnalisisCostUniM que son AnalisisCostUniD1 y AnalisisCostUniD2 GrabaCostosMP rstMP E Fecha GrabaCostosMaq rstMaq Fecha ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp De
28. Descripci n Unidad Consumo Desperdicio Consumo Costo Estd Unt Costo Est ndar Costo Est ndar 0 0007666 10 00 0 000852 15 750 00 21 463 41 23 39 ACHIOTE ENTERO 0 0020906 10 00 0 002323 4 200 00 15 609 75 17 01 561455 91 747 02 100 La nomenclatura referida a continuaci n debe entenderse as 1 2 donde 1 ser el nombre de la tabla y 2 el nombre del campo En la tabla de Excel se relacionan 10 campos los cuales se explicar n detalladamente a continuaci n 1 MateriaPrima Descripci n por cada materia prima de la formulaci n ListaMateriales del producto en cuesti n 2 MateriaPrima Unidad de Compra por cada materia prima de la formulaci n ListaMateriales del producto en cuesti n 52 3 ListaMateriales Consumo por cada materia prima de la formulaci n ListaMateriales del producto en cuesti n 4 ListaMateriales Porcentaje de Desperdicio por cada materia prima de la formulaci n ListaMateriales del Producto en cuesti n 5 3 1 4 6 Esta casilla es variable CostoMateriaPrima cotestandar CostoMateriaPrima cotpromedio CostoMateriaPrima cotreposicion CostoMateriaPrima cotsimulacion o CostoMateriaPrima cotexportacion de acuerdo al costo que requieran al momento de hacer la consulta por cada materia prima de la formulaci n ListaMateriales del Producto en cuesti n 7 5 6 8 7 Art culo arttamanolote 9 7 10 10 Suma
29. Descripci n de la materia prima MARCO TULIO MOSQUERA COLORQUMICA SALES DEL PACIFICO MOLINOS ANDES COLORQUMICA MATERIAS PRIMAS DEL VALLE MARCO TULIO MOSQUERA MARCO TULIO MOSQUERA ALINOS LA 29 ALINOS LA 29 JAMES AGUDELO ALI OS LA 29 ALI OS LA 29 ALI OS LA 29 MARCO ANTONIO POVEDA EVERTH AGUDELO AJOS Y AJOS AJOS Y AJOS ALI OS LA 29 ALI OS LA 29 ALI OS LA 29 COLORQUMICA ALINOS LA 29 COLORQUMICA FRAGANCIAS Y SABORIZANTES PLASTICOS EL MANA EVERTH AGUDELO FERPLASTICOS FERPLASTICOS FERPLASTICOS FERPLASTICOS FERPLASTICOS FERPLASTICOS FERPLASTICOS FERPLASTICOS FERPLASTICOS ALINOS LA 29 El formulario usado para el registro de la informaci n en la tabla Materia Prima fue KZ Microsoft Access Materia Prima C digo 001 0001 00000 Descripci n Unidad de compra Proveedor Fecha Est ndar Reposici n Promedio Simulado Exportaci n ps 0120722009 4 000 00 4 640 00 4594 00 4 800 00 5 280 00 aa 32 Tabla 4 Proveedores y Clientes Incluye todos los clientes y proveedores de la compa a relacionando su NIT datos generales y en la ltima columna hace la distinci n P proveedores y C clientes L5 Microsoft Access Entidad Tabla a V F I3 z3 o Dex STOCK EVERTH AGUDELO JOSE ANIBAL URREA LA ROCA AJOS Y AJOS JAMES AGUDELO MARCO ANTONIO POVEDA MARCO TULIO MOSQUERA PLASTICOS EL SALES DEL
30. Dim dbs As Database rst As Recordset rstCosto As Recordset cadSQL As String i As Long Dim ColCosto 5 As Single CodPT As String On Error GoTo ControlError cadSQL SELECT acudlpt acudlfecha acudimp acud1UM acudlconsumo acudldesperdicio acud1CRT amp acud1CEUM acud1CEU acudl1CEL acudltipo acudlEst acudlReal acud1Rep acud1Exp acud1Sim _ FROM AnalisisCostUniD1 WHERE acudlpt in SELECT acuarticulo FROM AnalisisCostUniM amp _ WHERE acutipo True AND acudlfecha amp Format Fecha mm dd yyyy 3t ORDER BY acud1pt IniRecordset dbs rst cadSQL cadSQL SELECT FROM costosArticulos I niRecordset dbs rstCosto cadSQL rst MoveLast rst MoveFirst CodPT rst Fields 0 Do While Not rst EOF Do While CodPT rst Fields 0 Multiplico el valor de la columna CRT por los Costos ColCosto 1 ColCosto 1 rst Fields 6 rst Fields 11 Costo Estandar ColCosto 2 ColCosto 2 rst Fields 6 rst Fields 12 Costo Real ColCosto 3 ColCosto 3 rst Fields 6 rst Fields 13 Costo Reposici n ColCosto 4 ColCosto 4 rst Fields 6 rst Fields 14 Costo Exportaci n ColCosto 5 ColCosto 5 rst Fields 6 rst Fields 15 Costo Simulado rst MoveNext If rst EOF Then Exit Do Loop If Not rst EOF Then CodPT rst Fields 0 rst MovePrevious rstCosto AddNew rstCosto Fields 0 rst Fields 0 C digo de PT rstCosto Fields 1 Fecha rstCosto Fields 2 ColCost
31. If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaFormulas rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 26 de 2006 Descripci n Verifica que la MP exista en costosmp y que cada campo contenga informaci n para poder realizar el proceso Function VerificaValCostosMP ByVal Fecha ByVal cadArticulos As String Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT limarticulo cotmateriaprima cotestandar cotreal cotreposicion amp cotexportaci n cotsimulado cotfecha FROM MateriaPrima INNER JOIN amp CostoMateriaPrima ON MateriaPrima mapid CostoMateriaPrima cotmateriaprima _ INNER JOIN ListaMateriales ON MateriaPrima mapid ListaMateriales limmateriaprima _ WHERE limarticulo In SELECT artid FROM Articulo AND cotfecha _ Format Fecha mm dd yyyy AND cotestandar 0 OR cotestandar Is Nul OR _ cotreal 0 OR cotreal Is Null OR cotreposicion 0 OR cotreposicion Is Null OR amp cotexportaci n 0 cotexportaci n 15 Null OR cotsimulado 0 OR cotsimulado Is Null amp _ ORDER BY limarticulo cotmateriaprima IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcfecha rcdescrip
32. RepCostos rcpt rcsubcodigo rcfecha rcdescripcion VALUES amp C amp rst Fields 0 rst Fields 1 Format Fecha mm dd yyyy Verificar Consumo y Desperdicio rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaFormulas rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 26 de 2006 Descripci n Verifica que la MP exista en costosmp y que cada campo contenga informaci n para poder realizar el proceso Function VerificaValCostosMP ByVal Fecha ByVal cadArt culos As String Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT limart culo cotmateriaprima cotestandar cotreal cotreposicion _ cotexportaci n cotsimulado cotfecha FROM MateriaPrima INNER JOIN amp CostoMateriaPrima ON MateriaPrima mapid CostoMateriaPrima cotmateriaprima amp _ INNER JOIN ListaMateriales ON MateriaPrima mapid 77 ListaMateriales limmateriaprima amp _ WHERE limart culo In SELECT artid FROM Art culo AND cotfecha amp _ Format Fecha mm dd yyyy AND cotestandar 0 OR cotestandar 15 Nul OR amp _ cotreal 0 OR cotreal Is Null OR cotreposicion 0 OR cotreposicion Is Null OR amp cotexportaci n 0 OR c
33. SEMILLA AVES ORNAMENTALES 250 GR MAQUINA AUTOMATICA SEMILLA AVES ORNAMENTALES 250 GR MOLINO TRITURADOR CORONA SEMILLA AVES ORNAMENTALES 250 GR TAMIZADOR SEMILLA AVES ORNAMENTALES 500 GR MAQUINA AUTOMATICA QEMILLA AVES ORNAMENTA ES ANN AR ME7CI ANNARA HARIZANTAI 1 Registro 14 J 63 Pi de 63 Identificaci n del art culo Explicaremos claramente la composici n de la ruta 1 para el art culo COLOR SUPER DE 60gr la cual est constituida por 4 m quinas que participan en el proceso de elaboraci n del producto mencionado partamos de los datos obtenidos anteriormente Composici n COLOR SUPER ER NN SESS Kg Porcentual Total Tanda 4305 100 37 Composici n COLOR SUPER 60 gr MAA Porcentual De Almacen PT 1 unid De Almacen PT MaizPartido 70 006 004181185 26 006 00153310 Achiote 3 006 X 20900209059 Tatraina 1 006 0500076655 100 oa A B AxB PT Producto Terminado Descripci n de Operaciones y Rendimientos de M aquinas Operaci n desarrollada Rendimiento Maq Como debemos relacionar en la tabla la cantidad de piezas hr cantidad de und de almacenamiento de PT que procesar a por hora en cada una de las m quinas luego tenemos Solo el Maiz partido 70 del producto Proporci n del PT procesado en cada maquina en la maquina procesa en la
34. Sub EraseTable Dim strSQL As String strSQL DELETE FROM AnalisisCostUniM BorraTabla strSQL strSQL DELETE FROM AnalisisCostUniD1 BorraTabla strSQL strSQL DELETE FROM AnalisisCostUniD2 BorraTabla strSQL 99 End Sub Principal En este modulo se encuentran las funciones comunes a la aplicaci n tales como inicializar variables de ruta im genes inicializaci n de Conjunto de registros RecordSet manejo de cadenas Option Compare Database Option Explicit Public Terminar As Boolean TurnoHora As Integer vgRuta As String Public RutaFotos As String RutaApp As String RutaDB As String Rutalmagenes As String Private Declare Function GetPrivateProfileString Lib kernel32 Alias GetPrivateProfileStringA ByVal IpApplicationName As String ByVal IpKeyName As Any ByVal IpDefault As String ByVal IpReturnedString As String ByVal nSize As Long ByVal IpFileName As String As Long Private Declare Function WritePrivateProfileString Lib kernel32 Alias WritePrivateProfileStringA ByVal IpApplicationName As String ByVal IpKeyName As Any ByVal IpString As Any ByVal IpFileName As String As Long Function I niRecordset dbs As Database rst As Recordset cadSQL As String Set dbs CurrentDb Set rst 2 dbs OpenRecordset cadSQL dbOpenDynaset End Function Function IniRst dbs As Database rst As Recordset cadSQL As String Set dbs CurrentDb Set rst 2 dbs OpenRecordset cadSQL dbOpenForwar
35. T CNICO ADCO 1 0 Administrador de Costos En el siguiente manual se describir n cada uno de los elementos herramientas c digo en que esta desarrollado el programa Aplicaci n el programa fue desarrollado en Microsoft Access 2003 Se escogi esta herramienta por su f cil uso de desarrollo e interoperatividad con las dem s herramientas de Office El archivo donde se encuentra la interfase se llama Adco mdb En este archivo se encuentran las consultas los formularios los informes y los m dulos En el archivo llamado AdcoDB mdb se encuentran las tablas Lista de Consultas con_AnalisisCostUniD1 con_AnalisisCostUniM con_Cargo con_Color con_CostoM quina con_Depto con_Entidad con ListaArt culos con ListaLinea con ListaMateriales con ListaPolitica con ListaRutas con ListCuidades con MP con Ruta Lista Formularios con AnalisisCostUniD2 con Art culo con Ciudad con CostoArt culo con CostoMP con Empleado con Linea con ListaCliente con ListaM quinas con ListaMateriaPrima con ListaProveedor con ListaSeccion con M quina con con Seccion frm AnalisisCostUniD1 frm AnalisisCostUniD2 frm AnalisisCostUniM frm Art culo frm Cargo frm Ciudad frm Color frm CostoArt culo frm CostoM gquina frm CostoMP frm Depto frm Empleado 68 frm_Entidad frm_Linea frm_ListaMateriales frm_CostoArtRep frm_MP frm_RepCostos frm_Ruta frm_Se
36. Then Exit Function Llama a las funciones para verificar que cada uno de los Art culos tengan los respectivos valores en los campos que se utilizar n en los procesos VerificaTamLote Fecha cadSQL PREGUNTAR SI ES NECESARIO ESTE CODIGO VerificaFormulacion Fecha cadSQL 70 VerificaValCostosMP Fecha cadSQL VerificaTieneCostosMP Fecha cadSQL VerificaRutasPT Fecha cadSQL VerificaTieneEstTiempos Fecha cadSQL VerificaCuadrel nv Fecha cadSQL VerificaValABCMaq Fecha cadSQL VerificaTieneABCMaq Fecha cadSQL Llama a las funciones para Grabar la informaci n que no presenta ninguna inconsistencia If Not GrabaCostosM Fecha cadSQL Then OK IniciaGrabacionCostos Fecha EliMaqSob Fecha GrabaAnalisisCostos Fecha GrabaAnalisisCostMaq Fecha End If VerificaDatosFinales Fecha ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos la funci n IniciaCostos End Function Autor Reinel Gallego Hansson Fecha Agosto 5 de 2009 Descripci n Verifica que en cada una de las tablas que tienen relaci n con la tabla art culo tengan en ellas art culos Function VerificaArt culos As Boolean Dim dbs As Database cadSQL As String Dev As Boolean Dim rstRuta As Recordset rstMateriales As Recordset On Error GoTo ControlError Dev False cadSQL SELECT FROM Ruta IniRst dbs rst
37. _ WHERE comfecha amp Format Fecha mm dd yyyy _ AND rutart culo IN amp cadArt culos IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcsubcodigo rcfecha rcdescripcion VALUES amp _ amp rst Fields O rst Fields 1 Format Fecha mm dd yyyy No existe en abcm quinas 82 rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaTieneABCMaq rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 30 de 2006 Descripci n Graba la informaci n referente a las M quinas en AnalisisCostUniD2 Function IniciaGrabaCostosPT ByVal CodPT As Long ByVal Fecha ByVal TamLote As Single On Error GoTo ControlError ObtieneCostos CodPT Fecha ObtieneMag CodPT Fecha TamLote ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n IniciaGrabaCostosPT End Function Autor Reinel Gallego Hansson Fecha Junio 26 de 2006 Descripci n Esta funci n se utiliza para recalcular las columnas CEU y CEL en la tabla AnalisisCostUniD1 Function RecalculaCostos ByVal CodPT As String ByVal F
38. _ cr amp rst Fields 0 rst Fields 1 Format Fecha mm dd yyyy No existe en abcmaquinas rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaTieneABCMaq rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 30 de 2006 Descripci n Graba la informaci n referente a las Maquinas en AnalisisCostUniD2 Function IniciaGrabaCostosPT ByVal CodPT As Long ByVal Fecha ByVal TamLote As Single On Error GoTo ControlError ObtieneCostos CodPT Fecha ObtieneMaq CodPT Fecha TamLote ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n IniciaGrabaCostosPT End Function Autor Reinel Gallego Hansson Fecha Junio 26 de 2006 Descripci n Esta funci n se utiliza para recalcular las columnas CEU y CEL en la tabla AnalisisCostUniD1 Function RecalculaCostos ByVal CodPT As String ByVal Fecha ByVal Tipo As String TamLote As Long Dim dbs As Database rst As Recordset cadSQL As String i As Long Dim CRT As Single Col As Single NroRegs As Long On Error GoTo ControlError cadSQL SELECT acudlpt acudlfecha acudimp acud1UM acudlconsumo acud1desperdicio acud1C
39. amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n VerificaCostosMP rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 26 de 2006 Descripci n Verifica que el c digo del Art culo y el c digo de M quina tengan Estandar de Tiempos Sj existen que verifique los campos Cuadre y Unidades de Inv x hora tengan informaci n Function VerificaTieneEstTiempos ByVal Fecha ByVal cadArt culos Dim dbs As Database rst As Recordset cadSQL As String Dim rstRutas As Recordset rstTmp As Recordset strFiltro As String Dim strTemp As String i As Long On Error GoTo ControlError Set dbs CurrentDb cadSQL SELECT rutart culo rutm quina FROM Ruta WHERE rutart culo IN cadArt culos amp IniRecordset dbs rst cadSQL cadSQL SELECT rutart culo rutm quina FROM ruta WHERE rst MoveLast rst MoveFirst strTemp cadSQL Fori 1 rst RecordCount strFiltro rutart culo rst Fields O And rutm quina rst Fields 1 amp strTemp strTemp strFiltro IniRecordset dbs rstRutas strTemp If rstRutas EOF Then InsertaDatos INSERT INTO RepCostos rcpt rcsubcodigo rcfecha rcdescripcion VALUES amp rst Fields 0 amp rst Fields 1 Format Fecha mm dd yyyy amp Rutas End If Set rstRutas Nothing rst MoveNext 79 strTemp cadSQL Next ControlError
40. con Rutas relacionadas El proceso se detendr vbl nformation An lisis de Costos Dev True End If If rstMateriales EOF Then MsgBox Los Art culos no tiene Materiales relacionados El proceso se detendr vbl nformation An lisis de Costos Dev True End If ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaArticulos rstRuta Close rstMateriales Close dbs Close VerificaArticulos Dev End Function Autor Reinel Gallego Hansson Fecha Junio 29 de 2006 Descripci n Graba la informaci n referente a la maestra de AnalisisCostUniM C digo PT y Fecha Function GrabaCostosM ByVal Fecha ByVal cadSQL As String As Boolean Dim dbs As Database rstArticulo As Recordset rstA As Recordset Dim Dev As Boolean Dev False On Error GoTo ControlError If CoincideCadena cadSQL WHERE Then cadSQL cadSQL amp AND artid NOT IN SELECT rcpt FROM RepCostos Else cadSQL cadSQL WHERE artid NOT IN SELECT rcpt FROM RepCostos End If IniRecordset dbs rstArticulo cadSQL cadSQL SELECT FROM AnalisisCostUniM IniRecordset dbs rstA cadSQL rstArticulo MoveLast rstArticulo MoveFirst If rstArticulo EOF Then MsgBox No hay registros para procesar Verifique Reporte de Costos Dev True Else Do While Not rstArticulo EOF rstA AddNew rstA Field
41. cuentan con la capacidad de adquirir programas o software altamente costosos organizaciones en proceso de desarrollo y posicionamiento que no cuentan con un sistema para la valoraci n y estimaci n de los costos reales de sus productos desconociendo que las ventajas competitivas que pueda tener su empresa nacen del proceso propio de la producci n de su adecuada gesti n y valoraci n Este proyecto pretende desarrollar un sistema de estimaci n de costos din mico y flexible que logre adaptarse a los posibles cambios en el mercado valorando en diferentes ambientes y o circunstancias situaciones inicialmente definidas por el usuario comportamiento de la moneda variaciones en costos de materias primas y o mano de obra costos reales o est ndar de los productos costos de exportaci n etc generando finalmente reportes de informaci n consolidada y previamente analizada y procesada El proyecto aborda generalmente temas inherentes al campo de la Ingenier a Industrial relacionados con Estimaci n de Costos y Administraci n de Bases de Datos 1 PLANTEAMIENTO DEL PROBLEMA Toda organizaci n cualquiera sea su naturaleza persigue una serie de objetivos que orientan su actividad y marcan el perfil y la visi n del negocio Estos objetivos pueden ser ganar dinero ser competitivo posicionarse en el mercado tener productos y servicios de buena calidad mantenerse en el tiempo alcanzar nuevos mercados prestar servicios eficient
42. de experiencia y conocimiento requiere por parte del implementador Se deber encontrar la forma mas real como el producto consume el costo de la actividad Definici n del costo de los productos Inducci n de los costos de las actividades a los productos Una vez identificados los productos y las actividades que conforman su cadena de valor se inducen los costos de dichas actividades a los productos mediante el uso de los inductores de costo Asignaci n de costos directos Se asignan directamente los costos directos a los productos Ejemplo Materias primas insumos Tipos de costos Es necesario clasificar los costos de acuerdo con categor as o grupos de manera tal que posean ciertas caracter sticas comunes para poder realizar los c lculos el an lisis y presentar la informaci n que puede ser utilizada para la toma de decisiones BACKER Morton y JACOBSEN Lyle Contabilidad de costos Un enfoque administrativo para la toma de decisiones 2 ed M xico McGraw Hill 1988 13 4 1 3 1 Clasificaci n seg n la funci n que cumplen Costo de Producci n Son los que permiten obtener determinados bienes a partir de otros mediante el empleo de un proceso de transformaci n Por ejemplo costo de la materia prima y materiales que intervienen en el proceso productivo sueldos y cargas sociales del personal de producci n depreciaciones del equipo productivo costo de los Servicios P blicos que intervienen en el proces
43. dispositivo que se usa para almacenamiento influye en la velocidad y flexibilidad con los cuales se pueden recuperar los datos Generalmente los valores almacenados en campos se usan para definir un requisito de recuperaci n Selecci n o Clasificaci n seleccionar significa extraer de una base de datos aquellos registros que satisfacen un conjunto de condiciones definidas de acuerdo 25 a los valores almacenados en los registros La selecci n y la clasificaci n son pasos muy importantes en el procesamiento de los datos y en la preparaci n de los reportes impresos Ordenamiento esta es otra de las operaciones del procesamiento de datos que es muy importante puesto que prepara los reportes impresos para que sean f ciles de usar El ordenamiento involucra el arreglo de los registros en forma ascendente o descendente de acuerdo a los valores de alg n campo estos representan la clave de ordenamiento Cuando hay muchos registros que contienen el mismo valor de la clave de ordenamiento es recomendable ordenarlos de acuerdo a m s de un campo C lculo los c lculos aritm ticos son con frecuencia una parte integral del proceso de transformaci n de los datos sin procesar que se convierten en informaci n Presentaci n ninguna de las actividades del procesamiento fundamental de los datos es til a menos que los resultados puedan ser representados en un formato de f cil comprensi n El informe impreso del sistema de compu
44. es que los negocios no prosperan Conocer los costos de la empresa es un elemento clave de la correcta gesti n empresarial para que el esfuerzo y la energ a que se invierte en la empresa den los frutos esperados Hoy en d a las exigencias del cliente son mayores en cuanto a calidad servicio y precio es por ello que las tendencias mundiales que actualmente rigen el campo empresarial reconocen que contar con informaci n de costos que les permita conocer cu les de sus productos y o servicios son rentables y cu les no las lleva a tener una ventaja competitiva sobre aquellas que no la tienen pues con dicha informaci n la gerencia puede tomar decisiones estrat gicas y operativas en forma acertada Los costos se deben amarrar a procesos eficientes y estos procesos requieren de tecnolog a de informaci n en su gesti n y optimizaci n Microsoft Office Access es una herramienta tecnol gica para la definici n y manipulaci n de bases de datos de gran difusi n entre peque as empresas PYMES la cual permite crear formularios para insertar y modificar datos f cilmente Tambi n tiene un entorno gr fico para ver las relaciones entre las diferentes tablas de la base de datos El presente trabajo pretende proveer los lineamientos y par metros b sicos para la implementaci n de un sistema de costeo de productos en Microsoft Office Access para el sector manufacturero y organizaciones con procesos de producci n en l nea las cuales no
45. levantada la informaci n se procede a registrarla en las tablas dise adas en Microsoft Office Access Microsoft Access CostoMaquina Tabla E Archivo Edici n Ver Insertar Formato Registros Herramientas Ventana AdobePDF EL Mantenimientos Procesos l Ya LAA E oE H AAR Bi A y yx 188 23 M quina Fecha MOD CIFVAR CIFFIJ Depreciaci n Servicios Capacidad Distribuci n MAQUINA AUTOMATICA 01 07 2009 3 897 00 54 309 00 33 298 00 531 25 106 40 531 90 5 106 40 MEZCLADORA VERTICAL N 1 01 07 2009 3 897 00 4 309 00 33 298 00 0 00 106 40 531 90 5 106 40 MEZCLADORA VERTICAL N 2 01 07 2009 3 897 00 4 309 00 33 298 00 0 00 106 40 531 90 5 106 40 MEZCLADORA HORIZONTAL 01 07 2009 3 897 00 4 309 00 5 33 298 00 0 00 106 40 531 90 5 106 40 MOLINO MICROPULVERIZADOR 01 07 2009 3 897 00 54 309 00 33 298 00 0 00 106 40 531 90 5 106 40 MOLINO INDUSTRIAL DE DISCO 01 07 2009 3 897 00 4 309 00 33 298 00 0 00 106 40 531 90 5 106 40 MOLINO TRITURADOR CORONA 01 07 2009 3 897 00 4 309 00 5 33 298 00 0 00 106 40 531 90 5 106 40 TAMIZADOR 01 07 2009 3 897 00 4 309 00 33 298 00 0 00 106 40 531 90 5 106 40 23 02 2010 0 00 0 00 0 00 0 00 0 00 0 00 0 00 41 El c lculo de las tarifas se describe a continuaci n teniendo en cuenta las horas presupuestas de ejecuci n durante el mes
46. maquina Basados en los rendimientos de las m quinas tenemos Rendimiento de las maquinas en Piezas de PT Hr UA ur Re A BASS Cantidad kg del PT que se Rendimiento Rendimiento en procesa en la maquina Mag Piezas Hora En este caso como el rendimiento de la MOLINO M ICROPULVERIZADOR 0 04181185 3750 kg hr 8968 7 mula dea tnde MEZCLADORA VERTICAL 1 0 06000000 433 5 kg hr 7225 0 celi date secalcula MOLINO INDUSTRIAL DE DISCO 0 06000000 7 10 kg hr 12850 0 directamente MAQUINA AUTOMATICA 0 06000000 21600 und hr 2160 0 38 Para efectos pr cticos interpretar amos el dato obtenido en el MOLINO MICROPULVERIZADOR como que si molemos durante una hora ma z partido tendremos materia prima suficiente para la elaboraci n 8968 7 unidades de COLOR SUPER 60gr z Los tiempos de cuadre alistamiento relacionados en la tabla RUTA fueron suministrados por la compa a El formulario usado para el diligenciamiento de las rutas de los art culos es C digo Fecha Vane Cine Unidad almac C E Und x Und almac Linea sTOCk Peso neto Peso bruto Ancho Largo Alto Volumen _ Densidad q rea _ Color NARANJA y Tama o lote Secci n CONDIMENTOS lw C digo 7 M quina Cuadre Ejecuci n tt AAA PAT RARA A EL 1 39 Tabla 9 Costos Materias Primas El dinamismo del modelo permite evaluar los costos de los art culos en dife
47. o informes Este lenguaje cuenta con un asistente para formularios que sirve para generar de manera autom tica formularios que administran registros de tablas o consultas pertenecientes a una base de datos hoja de c lculo u objeto Vale aclarar que todas las macros elaboradas por el Ing de Sistemas no son el objeto de nuestro an lisis por lo tanto el desarrollo del c digo se anexa al documento VER ANEXO 2 45 5 3 1 CUADRO DE CONTROL COSTOS REQUERIDOS La ventana principal o cuadro de control desde aqu se ejecutan los requerimientos del usuario se describe a continuaci n aclarando sus utilidades y funcionamiento Microsoft Access Parametros para Costos Requeridos Mantenimientos Procesos E 2 2 Exportar 4L Fechas dd mm aaaa Productos Terminados Procesar Inicio Final 30001000002 01 07 2009 01 07 2009 30001000011 Secci n 30001000021 ALIMENTO AVES 30001000055 CONDIMENTOS 30001000074 30001000082 30001000083 30008000001 50012000001 ina S CLIENTES 3A 50012000003 Inconsist ESPECIALES EXPORTACION STOCK Ver Costos PT Informe 224 Costos Art culos Ver informe Fechas dd mm aaaa se relaciona la fecha en la cual fue creado el producto en la tabla CostoM quina Debe diligenciarse en el formato requerido d a mes ano 46 Secci n despliega todas las secciones creadas en la tabla secci n El esquema pe
48. para cada una de las m quinas Horas Presupuestas Mes x Maquina AE H diarias mes MOLOO1 MOLINO MICROPULVERIZADOR __6______ 4150 TAMOO1 TAMIZADOR n08 J o 9135 Total Horas 376 940 Dias laborables del me 25 Tarifa de MOD La compa a cuenta con 5 operarios de planta los cuales laboran turnos de 8 horas d a Luego la cantidad total horas de MOD al mes ser a Total Horas MOD Horas diarias Horas mes Cantidad de Total Horas laboradas operario laboradas operario Operarios MOD Mes 8 600 Dias laborables del mes 25 Los operarios devengan un salario m nimo y los gastos adicionales equivalen a un 51 396 ver justificaci n de gastos adicionales luego el costo total de la MOD ser a Costo Total MOD Salario 96 de gastos Total Salario Cantidad de Costo Total M nimo operario adicionales carga prest Operarios MOD 515 000 51 3 779 350 3 896 748 42 Justificaci n de Gastos Adicionales Hem 2 00 Pagos Parafiscales Finalmente la tarifa de Hora MOD se calcular a de dividir el costo total de MOD mes y la cantidad de horas disponibles mes Total MOD Mes _ 88896748 _ 3 897 Hr MOD Horas Disponibles Mes Esta ser la tarifa de Hr MOD para cada una de las m quinas Tarifa de DEPRECIACI N Las m quinas con las cuales cuenta la compa a se encuentran to
49. rstFiltro Update Else rstFiltro MovePrevious rstFiltro Edit rstFiltro Fields 8 Total i Dato Tipo i 1 rstFiltro Update rstFiltro MoveNext End If rstFiltro MoveNext Next ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n CalculaHistoricoPT rst Close dbs Close End Function Function VerificaTamLote ByVal Fecha ByVal cadArt culos Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT artid FROM Art culo amp _ WHERE arttamanolote Is Null Or arttamanolote 0 AND artid IN amp cadArt culos amp IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcfecha rcdescripcion VALUES amp _ Cr rst Fields 0 Z Format Fecha mm dd yyyy X Verificar Tama o de Lote rst MoveNext Loop ControlError If Err Number lt gt 0 Then 93 MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaTamLote rst Close dbs Close End Function Function Real2Mat2 ByVal Fecha Dim dbs As Database rst As Recordset cadSQL As String rstTmp As Recordset On Error GoTo ControlError cadSQL SELECT Codigo pt copt real2 copt materiales2 FR
50. s lo si queremos un contenido del tipo S No Verdadero Falso etc Objeto OLE para introducir una foto gr fico hoja de c lculo sonido Hiperv nculo podemos definir un enlace a una p gina Web Asistente para b squedas crea un campo que permite elegir un valor de otra tabla o de una lista de valores mediante un cuadro de lista o un cuadro combinado Las propiedades generales de los campos se describen a continuaci n PROPIEDAD DESCRIPCI N TIPO DE CAMPO Tama o del campo Permite establecer la longitud m xima de un campo Texto num rico contador de texto num rico Formato Permite determinar la apariencia de presentaci n de Todos excepto OLE y Memo los datos utilizando los formatos predefinidos o nuestros propios formatos Lugares decimales Permite especificar el n mero de cifras decimales Num rico y moneda para mostrar los n meros M scara de entrada Permite controlar y filtrar los caracteres o valores que Texto num rico fecha hora los usuarios introducen en un control de cuadro de moneda texto evitando errores y facilitando su escritura T tulo Permite definir una etiqueta de campo predeterminada Todos para un formularios o informe Valor Introduce en el campo un valor cuando se agregan Todos excepto OLE y contador predeterminado nuevos registros long M x 255 caracteres Regla de validaci n Permite escribir la condici n que deben satisfacer los Todos excepto OLE y contador datos
51. y el c digo de Maquina tengan Estandar de Tiempos Si existen que verifique los campos Cuadre y Unidades de Inv x hora tengan informaci n Function VerificaTieneEstTiempos ByVal Fecha ByVal cadArticulos Dim dbs As Database rst As Recordset cadSQL As String Dim rstRutas As Recordset rstTmp As Recordset strFiltro As String Dim strTemp As String i As Long On Error GoTo ControlError Set dbs CurrentDb cadSQL SELECT rutarticulo rutmaquina FROM Ruta WHERE rutarticulo IN cadArticulos amp I niRecordset dbs rst cadSQL cadSQL SELECT rutarticulo rutmaquina FROM ruta WHERE rst MoveLast rst MoveFirst strTemp cadSQL Fori 2 1 To rst RecordCount strFiltro rutarticulo rst Fields O And rutmaquina rst Fields 1 amp strTemp strTemp strFiltro IniRecordset dbs rstRutas strTemp If rstRutas EOF Then InsertaDatos INSERT INTO RepCostos rcpt rcsubcodigo rcfecha rcdescripcion VALUES amp amp rst Fields 0 amp rst Fields 1 Format Fecha mm dd yyyy Rutas End If Set rstRutas Nothing rst MoveNext strTemp cadSQL Next ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n VerificaTieneEstTiempo rst Close dbs Close End Function Autor Reinel Gallego Hansson Fech
52. 0 00 1 188 00 Comino Entero 01 07 2009 7 587 00 8 801 00 8 713 00 5 9 104 00 10 015 00 Pimienta Entera 01 07 2009 6 466 00 7 501 00 7 426 00 7 759 00 8 535 00 Ajo Entero 01 07 2009 2 400 00 2 784 00 2 756 00 2 880 00 3 168 00 Canela Para Moler 01 07 2009 12 000 00 13 920 00 13 781 00 14 400 00 15 840 00 Clavo 01 07 2009 12 931 00 515 000 00 14 850 00 15 517 00 17 069 00 Nuez Moscada 01 07 2009 24 137 00 27 999 00 27 719 00 28 964 00 531 861 00 Trigo Entero 01 07 2009 1 000 00 1 160 00 1 148 00 1 200 00 1 320 00 Millo Entero 01 07 2009 720 00 835 00 827 00 864 00 950 00 Linaza 01 07 2009 2 672 00 3 100 00 3 069 00 3 206 00 3 527 00 Alpiste 01 07 2009 1 982 00 2 299 00 2 276 00 2 378 00 2 616 00 JOregano Molido 01 07 2009 7 759 00 9 000 00 8 910 00 9 311 00 10 242 00 Tomillo Molido 01 07 2009 7 759 00 9 000 00 8 910 00 9 311 00 510 242 00 Anis Estrellado 01 07 2009 10 776 00 12 500 00 12 375 00 12 931 00 5 14 224 00 Tartrazina Negra 01 07 2009 250 00 290 00 287 00 300 00 330 00 Curcuma en Polvo 01 07 2009 5 4 310 00 5 000 00 5 4 950 00 5 172 00 5 689 00 Color Verde Aji 01 07 2009 18 000 00 20 880 00 5 20671 00 21 600 00 23 760 00 Aroma Humo Polvo 01 07 2009 30 000 00 34 800 00 34 452 00 36 000 00 39 600 00 Bolsa Polipropileno Color 3 12 01 07 2009 12 000 00 13
53. 0 AND cost reposicion 15 Not Null And cost reposicion gt 0 AND cost exportacion 15 Not Null amp _ And cost exportacion gt 0 AND cost simulado Is Not Null And cost simulado gt 0 IniRecordset dbs rstMP cadSQL cadSQL SELECT hmpcodigo hmpfecha hmptipo hmpvalor FROM historicomp IniRecordset dbs rstHist cadSQL rstMP MoveLast rstMP MoveFirst Fori 1 To rstMP RecordCount Forj22To6 rstHist AddNew rstHist Fields 0 rstMP Fields 0 rstHist Fields 1 rstMP Fields 1 Select Case j Case 2 rstHist Fields 2 E Costo Est ndar rstHist Fields 3 rstMP Fields j 89 Case 3 rstHist Fields 2 rstHist Fields 3 Case 4 rstHist Fields 2 rstHist Fields 3 Case 5 rstHist Fields 2 rstHist Fields 3 Case 6 rstHist Fields 2 S Costo Simulado rstHist Fields 3 2 rstMP Fields j End Select rstHist Update Next rstMP MoveNext Next R Costo Real rstMP Fields j P Costo Reposici n rstMP Fields j X Costo Exportaci n rstMP Fields j 2 ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n GrabaCostosPT rstMP Close rstHist Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Julio 05 de 2006 Descripci n Toma toda la informaci n de Costosmp agrupada y la graba en historicomp Function LlenaHistoricoPT D
54. 01 0001 000002 001 0001 000004 001 0001 000006 001 0001 000008 001 0001 000016 001 0001 000020 001 0001 000022 001 0002 000001 001 0003 000001 001 0004 000001 001 0005 000001 001 0006 000001 001 0007 000001 001 0010 000003 001 0010 000004 001 0010 000006 001 0010 000007 001 0011 000002 001 0011 000003 001 0013 000006 001 0014 000001 001 0014 000016 001 0014 000046 001 0014 000051 001 0015 000113 001 0015 000163 001 0015 000169 001 0015 000170 001 0015 000171 1001 0015 000174 001 0015 000239 001 0015 000240 001 0015 000241 001 0015 000301 001 0015 000325 003 0011 000039 ACHIOTE ENTERO Tartrazina SP Sal Polvillo Cuchuco Rojo Punzon 4 R Maiz Partido Cristal de Arroz Mascomix Cristal de Arroz Ajo M Comino Entero Pimienta Entera Ajo Entero Canela Para Moler Clawo Nuez Moscada Trigo Entero Millo Entero Linaza Alpiste Oregano Molido Tomillo Molido Anis Estrellado Tartrazina Negra Curcuma en Polvo Color Verde Aji Aroma Humo Polvo Bolsa Polipropileno Color 3 12 Etiqueta Oferta Kit Super Lamina BOPP PEBD Mascomix 250 Lamina BOPP PEBD Color Corrien Lamina Mascomix 500 Lamina BOPP PEBD Guisason 60 g Lamina BOPP PEBD Color Super 6 Lamina BOPP PEBD Color de Raiz Lamina BOPP PEBD Color de Raiz Lamina BOPP PEBD Color Super 1 Lamina BOPP PEBD Ajo Molido 60 Acento Registro 14 PP de 38
55. 7 C DESCRIPCI N DE RUTAS 1 108 74 1 22597 947373 151 33 1 669 44 1 845 96 14264 t 2 187 57 1 669 40 1 845 96 1 83723 2 031 49 53 m Luego de detallar una sola ruta en Excel tenemos Centros de Centros de Centros de ER NIU pcm 1 T mooo jote 012 028 1108 12260 94737 00 303 1513 14528 134429 oe jaa 1 Mezoot 05 02 0o47 18373 20915 156985 00 soz 208 24074 222756 139 TOTAL COSTO 12 13 24 94507 10498 8075 12009 123008 1182002 720 11 Ruta rutid por cada m quina de la ruta del producto en cuesti n 12 Ruta maqid por cada m quina de la ruta del producto en cuesti n 13 Ruta rutcuadre por cada m quina de la ruta del Producto en cuesti n 14 Art culo arttamanolote Ruta rutejecuci n por cada m quina de la ruta del producto en cuesti n 15 13 14 por cada m quina de la ruta del producto en cuesti n 16 CostoM quina commod 15 por cada m quina de la ruta del producto en cuesti n 17 CostoM quina comcifvar 15 por cada m quina de la ruta del producto en cuesti n 18 CostoM quina comciffij 15 por cada m quina de la ruta del producto en cuesti n 19 CostoM quina comdepreciacion 15 por cada m quina de la ruta del producto en cuesti n 20 Costo
56. CalculaHistoricoPT rst Close dbs Close End Function Function VerificaTamLote ByVal Fecha ByVal cadArticulos Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT artid FROM Articulo amp _ WHERE arttamanolote Is Null Or arttamanolote 0 AND artid IN amp cadArticulos amp IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcfecha rcdescripcion VALUES amp _ amp rst Fields 0 Format Fecha mm dd yyyy Verificar Tama o de Lote rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n VerificaTamLote rst Close dbs Close End Function Function Real2Mat2 ByVal Fecha Dim dbs As Database rst As Recordset cadSQL As String rstTmp As Recordset On Error GoTo ControlError cadSQL SELECT Codigo pt copt real2 copt materiales2 FROM costospt amp _ WHERE copt real2 Is Not Null And copt real2 lt gt 0 AND _ copt materiales2 Is Not Null And copt materiales2 lt gt 0 AND _ copt fecha amp Format Fecha mm dd yyyy IniRst dbs rst cadSQL cadSQL SELECT FROM TempReal2Mat2 IniRecordset dbs rstTmp cadSQL Do While Not rst EOF rstTmp AddNew rstTmp Fields 0O rst F
57. DESARROLLO EN MICROSOFT OFFICE ACCESS DE UN SISTEMA DIN MICO PARA ESTIMACI N DE COSTOS DE FABRICACI N CON BASE EN CRITERIOS DEFINIDOS POR EL USUARIO Oscar Eduardo Hern ndez D az Trabajo de Grado C digo 0035264 Universidad del Valle FACULTAD DE INGENIER A DE LA UNIVERSIDAD DEL VALLE ESCUELA DE INGENIER A INDUSTRIAL Y ESTAD STICA PROGRAMA DE INGENIER A INDUSTRIAL Santiago de Cali 2011 DESARROLLO EN MICROSOFT OFFICE ACCESS DE UN SISTEMA DIN MICO PARA ESTIMACI N DE COSTOS DE FABRICACI N CON BASE EN CRITERIOS DEFINIDOS POR EL USUARIO Oscar Eduardo Hern ndez D az Trabajo de grado para optar el t tulo de Ingeniero Industrial Director JORGE HERN N G MEZ Ingeniero Industrial Universidad del Valle FACULTAD DE INGENIER A DE LA UNIVERSIDAD DEL VALLE ESCUELA DE INGENIER A INDUSTRIAL Y ESTAD STICA PROGRAMA DE INGENIER A INDUSTRIAL Santiago de Cali 2011 Quiero dedicar la realizaci n de este proyecto A mi Dios y Se or Jesucristo por haberme dado la oportunidad de culminar esta etapa de mi vida con xito A mi hermosa esposa por toda su ayuda y apoyo incondicional fue el motor que me impulso a seguir cuando todo parec a inconcluso LA AMO con todo mi coraz n Oscar Eduardo Hern ndez AGRADECIMIENTOS Expreso mis m s sinceros agradecimientos al Ingeniero Jorge Hern n G mez director de Tesis quien se desempe a como Director de Producci n de la empresa Prodispel S A Gracias por su ases
58. EGR Para este caso especifico evaluar el art culo por ruta 1 2 generar los mismos costos al producto final ya que las tarifas y los rendimientos establecidos para las m quinas mezcladoras MEZ001 Y MEZ002 son iguales D CRITERIO DE EVALUACI N Recordemos que el programa permite evaluar el costo de los art culos en diferentes escenarios de acuerdo con los costos de las materias definidos inicialmente por el usuario Para nuestro ejemplo se definieron para cada una de las materias primas cinco deferentes costos est ndar promedio reposici n simulado y de exportaci n con el fin de evaluar bajo cinco criterios diferentes el costo final del producto Operaciones Est ndar Reposici n vil Promedio Exportaci n Simulado 57 Esta es la tabla donde quedaron almacenados los costos para cada una de las materias primas E Microsoft Access CostoMateriaPrima Tabla i Archivo Edici n Ver Insertar Formato Registros Herramientas Ventana 2 AdobePDF Est ndar Promedio Materia Prima ACHIOTE ENTERO 01 07 2009 Tartrazina SP 01 07 2009 Sal Polvillo 01 07 2009 Cuchuco 01 07 2009 Rojo Punzon 4 R 01 07 2009 Maiz Partido 01 07 2009 Cristal de Arroz Mascomix 01 07 2009 Cristal de Arroz Ajo M 01 07 2009 Comino Entero 01 07 2009 Pimienta Entera 01 07 2009 Ajo Entero 01 07 2009 Canela Para Moler 01 07 2009 4 000 00 5 4 640 00 15 750 00
59. I N 940 5 106 4 TOTAL DISTRIBUCI N 5 106 4 Costos de adecuaci n 100 000 SERVICIOS 940 106 4 TOTAL SERVICIOS 106 4 Costos de Mantenimiento 500 000 CAPACIDAD 940 531 9 TOTAL CAPACIDAD 531 9 o AR 1 E e e En este punto contamos con toda la informaci n necesaria para la obtenci n del costo de los art culos Tenemos la descripci n de todos los productos sus listas de materiales y rutas de producci n as como los costos de materiales mano de obra y costos de las m quinas En el siguiente aparte nos encargaremos de 44 procesar la informaci n ya registrada en las tablas buscando obtener los datos esperados 5 3 PROCESAMIENTO DE LA INFORMACI N Mientras que los t rminos datos e informaci n se usan con frecuencia en forma semejante hay una distinci n formal entre los dos Los datos representan el material sin procesar de un sistema de informaci n hechos y aspectos espec ficos como los representados por los valores almacenados en los campos La informaci n representa los datos que se han transformado con el objetivo de hacerlos tiles para el usuario final y que por lo general se usan en la toma de decisiones El lenguaje de programaci n usado en el desarrollo de este proyecto fue Visual Basic dise ador de entorno de datos que permite generar de manera autom tica conectividad entre controles y datos mediante la acci n de arrastrar y colocar sobre formularios
60. If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaTieneEstTiempo rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Agosto 19 de 2006 Descripci n verifica los campos Cuadre y Ejecucion tengan informaci n Function VerificaCuadrel nv ByVal Fecha cadArt culos Dim dbs As Database rst As Recordset cadSQL As String Dim i As Long On Error GoTo ControlError cadSQL SELECT rutart culo rutm quina rutcuadre rutejecucion FROM ruta WHERE rutcuadre lt 0 Or rutcuadre 15 Null OR rutejecucion lt 0 amp rutejecucion 15 Null AND rutart culo IN amp cadArt culos _ ORDER BY rutart culo IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcsubcodigo rcfecha rcdescripcion VALUES amp _ amp rst Fields O rst Fields 1 Z Format Fecha mm dd yyyy z Verificar Cuadre o Uds Inv x hora rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaCuadrel nv rst Close dbs Close End Function 80 Autor Reinel Gallego Hansson Fecha Junio 27 de 2006 Descripci n Verifica que e
61. M quina comservicios 15 por cada m quina de la ruta del producto en cuesti n 21 CostoM quina comcapacidad 15 por cada m quina de la ruta del producto en cuesti n 22 CostoM quina comdistribucion 15 por cada m quina de la ruta del producto en cuesti n 54 23 16 17 18 19 20 21 22 por cada m quina de la ruta del producto en cuesti n 24 23 Art culo arttamanolote por cada m quina de la ruta del producto en cuesti n Es muy importante tener en cuenta que el usuario puede filtrar la ruta con la cual desea evaluar el costo del producto se debe proceder de la siguiente forma LUJIU IUIMAL mIMIEDIALEO 2 151 33 1 452 84 250 77 659 95 2 187 57 2 407 43 6 335 72 151 33 1 452 84 227 86 2 187 57 0 47 1 837 2 2 031 49 15 698 45 0 00 50 16 250 77 2 407 43 22 275 55 13 92 Registro 14 1 gt Jt de 10 Fecha de generaci n del Analisis de Costos aa 26 d Informes 1y2 El Tibrot Costos 4 835 14 5 346 35 AAA 3 Microsoft Of 659 95 2 580 E X Microsoft Power 6 335 72 24 767 Ty TRABAJO DE GR Se puede detallar en la figura que el art culo que se esta evaluando tiene 2 rutas difere
62. Null OR comcifvar lt 0 OR comcifvar Is Null OR comciffij lt 0 amp OR comciffij Is Null OR comdepreciacion 20 OR comdepreciacion 15 Null OR comservicios lt 0 _ OR comservicios Is Null OR comcapacidad lt 0 OR comcapacidad Is Null OR comdistribucion lt 0 OR _ comdistribucion IS NULL ORDER BY rutarticulo IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcfecha rcdescripcion VALUES amp _ amp rst Fields 0 rst Fields 1 Z Format Fecha mm dd yyyy Verificar valores en Costo Maquina rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos la funci n VerificaValABCMaq rst Close dbs Close End Function Function VerificaTieneABCMaq ByVal Fecha cadArticulos Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT rutarticulo rutmaquina FROM Ruta amp _ WHERE rutmaquina Not In SELECT commaquina FROM Costomaquina _ WHERE comfecha 8 Format Fecha mm dd yyyy _ AND rutarticulo IN amp cadArticulos IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcfecha rcdescripcion VALUES amp
63. OM costospt amp _ WHERE copt real2 Is Not Null And copt real2 lt gt 0 AND _ copt materiales2 Is Not Null And copt materiales2 lt gt 0AND amp _ copt fecha Format Fecha mm dd yyyy IniRst dbs rst cadSQL cadSQL SELECT FROM TempReal2Mat2 IniRecordset dbs rstTmp cadSQL Do While Not rst EOF rstTmp AddNew rstTmp Fields 0 rst Fields 0 C digo de rstTmp Fields 1 rst Fields 1 Valor Real2 rstTmp Fields 2 rst Fields 2 Valor Materiales 2 rstTmp Update rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n Real2Mat2 rst Close dbs Close End Function Function RetornaReal2Mat2 ByVal Fecha Dim dbs As Database rst As Recordset rstTmp As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT FROM tempReal2Mat2 WHERE trmpt In SELECT Codigo pt FROM costospt 94 WHERE copt fecha Format Fecha mm dd yyyy ORDER BY trmpt IniRst dbs rst cadSQL cadSQL SELECT Codigo pt copt_real2 copt materiales2 FROM costospt amp _ WHERE Codigo pt In SELECT trmpt FROM tempReal2Mat2 AND amp _ copt fecha Format Fecha mm dd yyyy amp ORDER BY Codigo pt IniRecordset dbs rstTmp cadSQL Do While Not rstTmp EOF rstTmp Edit rstTmp Field
64. PACIFICO MATERIAS PRIMAS DEL VALLE AUTOSERCIO MI AMIGO VARIA TERESA PINEDA AUT PZ GRAFIGLORIA ALI OS LA 23 AUTOSERVICIO BARBERENA _ FERNANDO PIZARRO AUTO LA S HENRY MARTINEZ AUTOSERVICIO Calle 15 N 21 28 Cra 6 No 7 38 Call 6 No 11 A 03 Cra 32 No 19 27 Cra 29 No 23 30 Calle 23 No 29 35 Cra 12 No 1046 40 C 5209 Trans 31 No 17F 82 Cra 1 Diag 21 32 Cra 20 No 20 10 DIAG 51 No 502 Cra 3 No 17 03 Cra 28 No 2348 Cale 33 E No 25 Bis 23 3117972672 8475570 8270221 3359338 3285247 3122472579 3359501 2807730 EVERTH AGUDELO FERNANDO FIZARRO JOSE A URREA JAIME MONTOYA JAMES AGUDELO HENRY BELISARIO LOPEZ HENRY MARTINEZ JOSE ROJAS YOVANNI ARCOS MARIA LIBIA CASTILLO LUCCELY ANGEL GLORIA ARIAS NESTOR CHARA GUILLERMO MILDRED LOPEZ MILDRED LOPEZ MILDRED LOPEZ FRANCY GUZMAN YULI MOSQUERA YULI MOSQUERA CALI VALLE MIRANDA CAUCA CALI VALLE CALI VALLE CALI VALLE VILLAGORGONA VAL CALI VALLE CALI VALLE PUERTO TEJADA CALI VALLE CALI VALLE PUERTO TEJADA CF CALI VALLE CALI VALLE CALI VALLE CALI VALLE CUENTE Relacionamos las l neas de producci n con su respectivo c digo a las cuales van dirigidos los productos Productos gen ricos stock ofrecidos al p blico en general productos con caracter sticas exclusivas especiales para clientes espec ficos productos de exportaci n etc
65. QL SELECT artid FROM Articulo WHERE artid Not In SELECT rutarticulo FROM Ruta amp _ AND artid IN amp cadArticulos IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcfecha rcdescripcion VALUES amp amp rst Fields 0 Z Format Fecha mm dd yyyy No existe en RutasPT rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaRutasPT rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 27 de 2006 Descripci n Verifica que el c digo del Art culo tenga maquinas asignadas en Rutas si tiene verifica que los campos en abcmaquina tengan informaci n Function VerificaValABCMaq ByVal Fecha ByVal cadArticulos Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT rutarticulo commaquina comfecha commod comcifvar comciffij comdepreciacion _ comservicios comcapacidad comdistribucion FROM Maquina INNER JOIN CostoMaquina ON amp _ Maquina maqgid CostoMaquina commaquina INNER JOIN Ruta Maquina maqid Ruta rutmaquina amp _ WHERE rutarticulo In cadArticulos AND comfecha 4 Format Fecha mm dd yyyy amp _ AND commod lt 0 OR commod Is
66. RT acud1CEUM acud1CEU acud1CEL acudltipo acudlRep acud1Exp acud1Sim _ acudlEst acudlReal FROM AnalisisCostUniD1 WHERE 1 CodPT AND acud1fecha Format Fecha mm dd yyyy IniRecordset dbs rst cadSQL rst MoveLast rst MoveFirst NroRegs rst RecordCount ReDim CRT NroRegs ReDim Col NroRegs Fori 2 1To NroRegs CRT i rst Fields 6 Select Case Tipo Case E Tipo E Col i rst Fields 11 Case R Tipo R Col i rst Fields 12 Case P Tipo P Col i rst Fields 13 Case X Tipo X Col i rst Fields 14 Case S Tipo S Col i rst Fields 15 End Select rst MoveNext Next rst MoveLast rst MoveFirst Fori 1 rst RecordCount rst Edit rst Fields 10 Tipo rst Fields 8 2 CRT i Col i Costo XXX Unidad rst Fields 9 CRT i Col i TamLote rst Update rst MoveNext Next ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Err Number _ amp Descripci n amp Err Description amp en el m dulo de Costos en la funci n RecalculaCostos rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 30 de 2006 Descripci n Obtiene los costos de Estandar Real Reposici n Exportaci n y Simulado como tambien el Consumo Real Total para realizar las respectivas operaciones Function GrabaAnalisisCostos ByVal Fecha
67. Ruta cadSQL cadSQL SELECT FROM ListaMateriales IniRst dbs rstMateriales cadSQL If rstRuta EOF Then MsgBox No hay Art culos con Rutas relacionadas El proceso se detendr vbl nformation An lisis de Costos Dev True End If 71 If rstMateriales EOF Then MsgBox Los Art culos no tiene Materiales relacionados El proceso se detendr vbl nformation An lisis de Costos Dev True End If ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaArt culos rstRuta Close rstMateriales Close dbs Close VerificaArt culos Dev End Function Autor Reinel Gallego Hansson Fecha Junio 29 de 2006 Descripci n Graba la informaci n referente a la maestra de AnalisisCostUniM C digo PT y Fecha Function GrabaCostosM ByVal Fecha ByVal cadSQL As String As Boolean Dim dbs As Database rstArt culo As Recordset rstA As Recordset Dim Dev As Boolean Dev False On Error GoTo ControlError If CoincideCadena cadSQL WHERE Then cadSQL cadSQL amp AND artid NOT IN SELECT rcpt FROM RepCostos Else cadSQL cadSQL WHERE artid NOT IN SELECT rcpt FROM RepCostos End If IniRecordset dbs rstArt culo cadSQL cadSQL SELECT FROM AnalisisCostUniM IniRecordset dbs rstA cadSQL rstArt culo MoveLast rstArt culo MoveFirst If rstArt culo
68. a Agosto 19 de 2006 Descripci n verifica los campos Cuadre y Ejecucion tengan informaci n Function VerificaCuadrel nv ByVal Fecha cadArticulos Dim dbs As Database rst As Recordset cadSQL As String Dim i As Long On Error GoTo ControlError cadSQL SELECT rutarticulo rutmaquina rutcuadre rutejecucion FROM ruta WHERE rutcuadre lt 0 Or rutcuadre Is Null OR rutejecucion lt 0 8 _ rutejecucion Is Null AND rutarticulo IN cadArticulos ORDER BY rutarticulo IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcfecha rcdescripcion VALUES amp amp rst Fields O rst Fields 1 Z Format Fecha mm dd yyyy Cuadre o Uds Inv x hora rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaCuadrel nv rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 27 de 2006 Descripci n Verifica que el c digo de Articulo tenga maquinas asignadas en rutaspt si tiene maquinas que verifique Estandar de Tiempos y abcmaquinas Function VerificaRutasPT ByVal Fecha ByVal cadArticulos Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadS
69. a Junio 29 de 2006 Descripci n Graba la informaci n referente a la Materia Prima en AnalisisCostUniD1 Function GrabaCostosMP rstM As Recordset ByVal Tipo As String ByVal Fecha Dim dbs As Database rst As Recordset cadSQL As String Lista As String Dim Costo As Single CRT As Single On Error GoTo ControlError cadSQL SELECT acudlpt acudlfecha acudimp acud1UM acudlconsumo acudldesperdicio _ acud1CRT acud1CEUM acud1CEU acud1CEL acudltipo acudlEst acudlReal _ acud1Rep acud1Exp acud1Sim FROM AnalisisCostUniD1 IniRecordset dbs rst cadSQL Do While Not rstM EOF rst AddNew rst Fields 0 rstM Fields 0 rst Fields 1 Fecha rst Fields 2 rstM Fields 2 Codigo MP rst Fields 3 rstM Fields 3 Unidad de compra rst Fields 4 rstM Fields 4 Consumo rst Fields 5 rstM Fields 5 Porcentaje de desperdicio CRT rstM Fields 4 1 rstM Fields 5 Consumo Real Total Costo rstM Fields 6 Costo Estandar rst Fields 6 CRT rst Fields 7 Costo Costo Estd Unit Material rst Fields 8 CRT Costo Costo Estandar Unidad rst Fields 9 rstM Fields 11 CRT Costo Costo Estandar Lote rst Fields 10 Tipo rst Fields 11 rstM Fields 6 Columna cost_estandar rst Fields 12 rstM Fields 7 Columna cost real rst Fields 13 rstM Fields 8 Columna cost reposicion rst Fields 14 rstM Fields 9 Columna cost exportacion rst Fields 15 rstM Fields 10 Columna cost_simulado rst U
70. adSQL DELETE FROM costosArticulos BorraTabla cadSQL cadSQL DELETE FROM RepCostos BorraTabla cadSQL End Sub Function VerificaDatosFinales ByVal Fecha Dim dbs As Database rst As Recordset cadSQL As String CadDel As String Dim rstRutas As Recordset rstTmp As Recordset strFiltro As String Dim strTemp As String i As Long CodPT As String CodMaqg As String On Error GoTo ControlError cadSQL SELECT acuarticulo FROM AnalisisCostUniM WHERE acuarticulo Not In select acud1pt from AnalisisCostUniD1 IniRecordset dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcfecha rcdescripcion VALUES amp amp rst Fields O Z Format Fecha mm dd yyyy A Verificar Materia Prima Si tiene maquinas las borra cadSQL DELETE FROM AnalisisCostUniD2 WHERE acud2pt rst Fields 0 BorraTabla cadSQL Depu s de borrar maquinas borra Maestra de Analisis Costos cadSQL DELETE FROM AnalisisCostUniM WHERE acuarticulo rst Fields 0 BorraTabla cadSQL rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n VerificaDatosFinales rst Close dbs Close End Function GetSQL Este modulo almacena el c digo que manipula sentencias SQL En este modulo se encuentran t
71. amp Fotos Aqui se almacenan las fotos digitalizadas de los alumnos Rutal magenes RutaApp Imagenes Aqui se almacenan las imagenes que lleva la aplicaci n RutaDB RutaApp Datos Adcodb mdb Aqui almacena la base de datos ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Tome nota de lo siguiente amp Err Number amp vbCr _ amp Descripci n Err Description amp vbCr _ amp En el m dulo de Registro en la funci n SetPath dbs Close End Sub Nota No se manejan macros para evitar el contagio de virus Modelo Entidad Relaci n A continuaci n se mostrar el MER con cada una de las relaciones respectivas CostosArticulos Articulo ListaMateriales AnalisisCostUniD1 MateriaP rima AnalisisCostUniM coaarticulo coafecha coaestandar coareal coareposicion RepCostos Seccion secid secnombre Cargo carid carnombre Entidad Ciudad Depto 1 depid depnombre Maquina 1 1 o magnombre CostoMaquina
72. ar productos elegir entre proveedores alternativos y realizar mejoras en los productos y procesos entre otros Las grandes empresas han comprendido el valor de esto y por ello han realizado inversiones importantes en programas o software altamente costosos pero existen organizaciones en proceso de desarrollo y posicionamiento que no 60 cuentan con un sistema para la valoraci n y estimaci n de los costos reales de sus productos desconociendo que las ventajas competitivas que pueda tener su empresa nacen del proceso propio de la producci n de su adecuada gesti n y valoraci n Existen PYMES que no cuentan con un sistema de valoraci n y estimaci n de costo eficaz utilizan procesos manuales para este c lculo y no toman en cuenta todos los elementos requeridos para realizar un costeo real descartando costos indirectos de fabricaci n CIF este desconocimiento puede acarrear riesgos serios para la empresa e incluso llevarla a su desaparici n Existen programas de bajo costo a los cuales pueden acceder estas empresas programas pr cticos din micos de f cil aplicaci n y desarrollo los cuales permiten al usuario definir los par metros conforme a sus necesidades y requerimientos estos se encargan de almacenar informaci n procesarla y generar resultados ptimos y en tiempos reducidos Microsoft Office Access se constituye en un programa que cuenta con estas caracter sticas Se desarrollo en Microsoft Office Access
73. as fases de producci n de una unidad terminada Los costos indirectos de fabricaci n son todos aquellos costos que no se relacionan directamente con la manufactura pero contribuyen y forman parte de los costos de producci n En ese orden de ideas el costo de la nomina indirecta los servicios p blicos gastos de alquiler gastos de mantenimiento impuestos gastos de distribuci n entre otros forman parte de este rubro 28 Se escogi la empresa ALIMENTOS GUISAS N DE COLOMBIA S A empresa manufacturera del sector alimentos que tiene como objeto la producci n empaque y comercializaci n de condimentos especias productos de reposter a y una l nea especial de Alimento para Aves ornamentales Se conocieron las instalaciones de la compa a los procesos productivos y todas las actividades en general que contribuyen al desarrollo del negocio con el fin de tener una visi n global de la empresa tambi n se valid el sistema que actualmente utilizan para costear los productos detectando falencias importantes 5 2 OBTENCI N Y REGISTRO DE LA INFORMACI N La recolecci n de informaci n es uno de los procesos vitales en una investigaci n porque permite conocer las respuestas a los interrogantes planteados en el problema de estudio Se dise aron los formatos plantillas para la recolecci n de informaci n teniendo en cuenta los tems requeridos para el desarrollo del modelo de costeo en la empresa escogida VER ANEXO 1
74. bajo normal de una empresa por lo que al comparar el costo hist rico con el est ndar de donde resultan las desviaciones que indican las deficiencias o superaciones perfectamente definidas y analizadas En el caso de los costos estimados a la diferencia entre estos y los hist ricos se le dio un nombre gen rico variaci n por no ser muy exacta la t cnica y ajustarse al costo hist rico pero el est ndar es de alta precisi n es una meta a lograr es una medida de eficiencia en sumo indica lo que debe costar algo por lo que a la diferencia entre el costo est ndar y el real se le nombrar desviaci n por ser m s preciso y dar una idea de que se sali de una l nea patr n o medida Los costos est ndar se clasifican en dos grupos e Costos est ndar circulantes o ideales Costos est ndar b sicos o fijos Costos est ndar circulantes o ideales Son aquellos que representan metas por alcanzar en condiciones normales de la producci n sobre bases de eficiencia es decir representan patrones que sirven de comparaci n para analizar y corregir los costos hist ricos claro esta que los costos est ndar de este tipo se encontrar n continuamente sujetos a rectificaciones si las circunstancias que se tomaron como base para su c lculo han variado Costos est ndar b sicos o fijos Representan medidas fijas que s lo sirven como ndice de comparaci n y no necesariamente deben ser cambiados aun cuando las condicione
75. cada c digo de PT OMP y M quina cumpla con las condiciones para ser procesado si alguno no cumple con las condiciones se grabar en una tabla de reportes Function IniciaCostos ByVal Fecha ByVal Tipo As String Dim cadSQL As String On Error GoTo ControlError Establece el campo acumtipo a False ActualizaTabla UPDATE AnalisisCostUniM SET acutipo False Select Case Tipo Case la Indica que se pasa informaci n de la Fecha L nea y Secci n cadSQL SELECT artid FROM Articulo WHERE artseccion In DatosCostos 2 amp AND artlinea IN amp DatosCostos 3 amp Case 1b Indica que se pasa informaci n de la Fecha y L nea cadSQL SELECT artid FROM Articulo WHERE artlinea IN amp DatosCostos 3 amp Case 1c Indica que se pasa informaci n de la Fecha y Secci n cadSQL SELECT artid FROM Articulo WHERE artseccion In DatosCostos 2 amp Case 2 Indica que se pasa informaci n de la Fecha y Art culos If DatosCostos 1 Then cadSQL SELECT artid FROM Articulo Se ha seleccionado todos Articulos Else cadSQL SELECT artid FROM Articulo WHERE artid In DatosCostos 1 amp End If End Select Llama a la funci n para verificar que las tablas relacionadas con art culos tengan art culos If VerificaArticulos Then Exit Function Llama a las funciones para verificar que cada uno de los Art culos tengan los respectivos valores en los ca
76. ccion frm M quina frm Inicio Lista de Informes inf CostosArt culos Lista M dulos y su respectivo c digo Costos Este modulo tiene guarda el c digo central de la aplicaci n El cual ejecuta todos los procesos que tienen que ver con la parte de costos de los materiales Autor Reinel Gallego Hansson Fecha Junio 25 de 2006 Verifica que las tablas Costosm quinas y CostoMateriaPrima coincidan con la fecha a procesar Function VerificaFechaCostos ByVal Fecha As Boolean Dim dbs As Database rstMaq As Recordset rstCostos As Recordset Dim Dev As Boolean Dev False On Error GoTo ControlError verifica que la fecha exista en las tablas Costosm quina y CostoMateriaPrima If TieneDatos rstMaq SELECT comfecha FROM CostoM quina WHERE comfecha amp Format Fecha mm dd yyyy Then MsgBox No existe esta fecha en la tabla Costosm quinas No se iniciar el proceso Verificar fechas Dev True Elself TieneDatos rstCostos SELECT cotfecha FROM CostoMateriaPrima WHERE cotfecha Format Fecha mm dd yyyy Then MsgBox No existe esta fecha en la tabla costos Materia Prima No se iniciar el proceso Verificar fechas Dev True End If VerificaFechaCostos Dev ControlError If Err Number lt gt 0 Then 69 MsgBox Ha ocurrido el error Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaFec
77. cedimiento deshabilita la techa Shift para evitar que el usuario abra la base de datos y tenga acceso a los objetos Sub SetBypassProperty Const DB Boolean As Long 1 ChangeProperty AllowBypassKey DB Boolean False End Sub Function Applicationl nformation Application SetOption Show Hidden Objects False CommandBars Database Visible False End Function Function RefreshLink Dim dbs As Database rst As Recordset cadSQL As String Dim tdf As TableDef i As Long cadConnect As String On Error GoTo ControlError cadSQL SELECT ForeignName FROM MSysObjects WHERE Type 6 IniRecordset dbs rst cadSQL rst Movelast rst MoveFirst Fori 1 To rst RecordCount Set tdf dbs TableDefs rst Fields 0 cadConnect PWD 00H5 DATABASE amp RutaDB tdf Connect cadConnect tdf RefreshLink rst MoveNext Next ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Tome nota de lo siguiente amp Err Number amp vbCr _ amp Descripci n Err Description vbCr _ amp En el m dulo de General en la funci n RefreshLink rst Close dbs Close End Function La funci n establece los valores inciales de las rutas si esta ha cambiado Imagenes Base de datos Fotos Documentos Sub SetPath Dim dbs As Database On Error GoTo ControlError Datos Plantillas Documentos Set dbs CurrentDb RutaApp Mid dbs Name 1 Len dbs Name 8 RutaFotos RutaApp
78. ci n seg n su grado de variabilidad 4 1 3 3 Clasificaci n seg n su asignaci n 4 1 3 4 Clasificaci n seg n su comportamiento 4 1 4 Contribuci n Marginal y Punto de Equilibrio 4 1 4 1 Contribuci n marginal 4 1 4 2 Punto de equilibrio 4 1 5 El Precio de Venta 4 2 ADMINISTRACI N DE BASE DE DATOS 4 2 1 Terminolog a B sica 4 2 2 Conversi n de los Datos en Informaci n P g 20 21 22 25 4 2 3 Microsoft Office Access 5 DESARROLLO DE LA METODOLOG A 5 1 MODELO DE COSTOS 5 2 OBTENCI N Y REGISTRO DE LA INFORMACI N 53 PROCESAMIENTO DE LA INFORMACI N 5 3 1 Cuadro de Control Costos Requeridos 5 3 2 An lisis de Costos Final por Producto 6 CONCLUSIONES BIBLIOGRAF A ANEXOS 27 60 63 65 LISTA DE ANEXOS P g Anexo 1 TABLAS DE RECOLECCI N DE DATOS 65 Anexo 2 C DIGO EN VISUAL BASIC 68 Anexo 3 CD CON PROGRAMA DE COSTOS EN MICROSOFT ACCESS 107 INTRODUCCI N Todo negocio consiste primordialmente en satisfacer las necesidades y deseos del cliente vendiendo un producto o servicio por m s dinero de lo que cuesta fabricarlo La ventaja que se obtiene con el precio se utiliza para cubrir los costos y para obtener una utilidad La mayor a de los empresarios principalmente de las peque as empresas definen sus precios de venta a partir de los precios de sus competidores sin saber si ellos alcanzan a cubrir los costos de sus empresas El resultado inmediato derivado de esta situaci n
79. cion VALUES amp _ amp rst Fields 0 rst Fields 1 Z Format Fecha mm dd yyyy Verificar valores de CostosMP rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaCostosMP rst Close dbs Close End Function Function VerificaTieneCostosMP ByVal Fecha ByVal cadArticulos Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT limarticulo limmateriaprima FROM ListaMateriales WHERE limmateriaprima Not In SELECT cotmateriaprima FROM CostoMateriaPrima _ AND limarticulo IN amp cadArticulos amp IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcsubcodigo rcfecha rcdescripcion VALUES amp 6 rst Fields O rst Fields 1 Format Fecha mm dd yyyy amp No existen en CostosMP rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaCostosMP rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 26 de 2006 Descripci n Verifica que el c digo del Art culo
80. dOnly End Function Autor Reinel Gallego Hansson Fecha Mayo 12 de 2006 Descripci n Almacena en una variable de cadena todos los datos de un control de lista separados por comas con el objetivo de pasarlo como una sola variable Function SelecLista Ctrl As ListBox As String Dim viltems As String i As Long Cont As Variant For Each Cont In Ctrl ltemsSelected vlitems vlltems Ctrl ItemData Cont Next If viitems Then vlltems Else 100 vli tems Left vlltems Len viltems 1 End If SelecLista vlltems End Function Function CoincideCadena ByVal CadBusqueda As String ByVal cadABuscar As String As Boolean Dim Dev As Boolean Pos As Integer Dev False Pos InStr 1 CadBusqueda cadABuscar vbTextCompare If Pos gt 0 Or IsNull Pos Then Dev True End If CoincideCadena Dev End Function Function Ruta vgRuta Application CurrentProject Path End Function Autor Reinel Gallego Hansson Fecha Julio 1 de 2009 Descripci n Verifica si un recordset contiene datos Function TieneDatos rst As Recordset ByVal cadSQL As String As Boolean Dim dbs As Database Dev As Boolean On Error GoTo ControlError IniRst dbs rst cadSQL If rst EOF Then Dev True Else Dev False End If TieneDatos Dev ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Pri
81. ds 9 rstM Fields 10 DEPRECIACION rst Fields 10 rstM Fields 11 SERVICIOS rst Fields 11 rstM Fields 12 CAPACIDAD rst Fields 12 rstM Fields 13 DISTRIBUCION rst Update rstM MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n GrabaCostosMaq codigoPT rstM Fields 0 rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 26 de 2006 Descripci n Verifica que el c digo de Art culo tenga Lista Materiales si tiene verifica que cada una de las formulas tenga Consumo y Porc Desperdicio y verifica que cada c digo de OMP tenga informaci n en la tabla costosmp en cada uno de sus campos Verifica que las tablas abcm quinas y costosmp coincidan con la fecha a procesar Function VerificaFormulacion ByVal Fecha ByVal cadArt culos 76 Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT limart culo limmateriaprimal limconsumo limporcentajeDesperdicio FROM ListaMateriales amp _ WHERE limConsumo lt 0 Or limConsumo Is Null Or limPorcentajeDesperdicio lt 0 _ limPorcentajeDesperdicio Is Null AND limart culo IN cadArt culos ORDER BY limart culo IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO
82. e centre en un registro en concreto Informe permite preparar los registros de la base de datos de forma personalizada para imprimirlos 24 Macro conjunto de instrucciones que se pueden almacenar para automatizar tareas repetitivas M dulo programa o conjunto de instrucciones en lenguaje Visual Basic Archivos un archivo es un conjunto de registros del mismo tipo esto es registros que consisten en el mismo conjunto de campos 4 2 2 Conversi n de los datos en informaci n Mientras que los t rminos datos e informaci n se usan con frecuencia en forma semejante hay una distinci n formal entre los dos Los datos representan el material sin procesar de un sistema de informaci n hecho y aspectos espec ficos como los representados por los valores almacenados en los campos La informaci n representa los datos que se han transformado con el objetivo de hacerlos tiles ara el usuario final y que por lo general se usan en la toma de decisiones Este proceso de transformaci n se ejecuta por medio de varias combinaciones de los siguientes pasos en el procesamiento de datos Almacenamiento los sistemas computarizados usan cintas magn ticas discos o alg n otro medio electr nico para la acumular y guardar la informaci n Recuperaci n los datos para responder las preguntas de los administradores deben accesarse en forma r pida si se cuanta con un sistema automatizado para apoyar la toma de decisiones El tipo de
83. e una referencia a la base de datos activa Set dbs CurrentDb Crea un nuevo objeto QueryDef Set qdf dbs CreateQueryDef strSQL Ejecutar QueryDef Execute qdf Close ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n BorraTabla qdf Close Set dbs Nothing End Function Autor Reinel Gallego Hansson Fecha Julio 02 de 2006 Descripci n Funci n de proposito general la cual permite pasar una cadena con una instrucci n INSERT INTO Function InsertaDatos ByVal strSQL As String Dim dbs As Database On Error GoTo ControlError Set dbs CurrentDb dbs Execute strsQL Debug Print strsQL ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Principal en la funci n InsertaDatos dbs Close End Function Procedimiento temporal Sub EraseTable Dim strSQL As String strSQL DELETE FROM AnalisisCostUniM BorraTabla strSQL strSQL DELETE FROM AnalisisCostUniD1 BorraTabla strSQL strSQL DELETE FROM AnalisisCostUniD2 BorraTabla strSQL End Sub Principal En este modulo se encuentran las funciones comunes a la aplicaci n tales como inicializar variables de ruta im genes inicializaci n de Conjunto de registros Rec
84. echa ByVal Tipo As String TamLote As Long Dim dbs As Database rst As Recordset cadSQL As String i As Long Dim CRT As Single Col As Single NroRegs As Long On Error GoTo ControlError cadSQL SELECT acudlpt acudlfecha acudimp acud1UM acudlconsumo 1 acud1CRT amp _ acud1CEUM acud1CEU acudl1CEL acudltipo acudlEst acudlReal acud1Rep 1 acud1Sim _ FROM AnalisisCostUniD1 WHERE acud1pt CodPT AND acudlfecha Format Fecha mm dd yyyy IniRecordset dbs rst cadSQL 83 rst MoveLast rst MoveFirst NroRegs rst RecordCount ReDim CRT NroRegs ReDim Col NroRegs Fori 2 1 To NroRegs CRT i rst Fields 6 Select Case Tipo Case E Tipo E Col i 2 rst Fields 11 Case R Tipo R Col i rst Fields 12 Case P Tipo P Col i rst Fields 13 Case X Tipo X Col i rst Fields 14 Case S Tipo S Col i rst Fields 15 End Select rst MoveNext Next rst MoveLast rst MoveFirst For i 1 To rst RecordCount rst Edit rst Fields 10 Tipo rst Fields 8 CRT i Col i Costo XXX Unidad rst Fields 9 CRT i Col i TamLote rst Update rst MoveNext Next ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n RecalculaCostos rst Close db
85. enta y el Costo Variable Unitario Contribuci n Marginal Precio de Venta Costo Variable Unitario 17 Se le llama margen de contribuci n porque muestra como contribuyen los precios de los productos o servicios a cubrir los costos fijos y a generar utilidad que es la finalidad que persigue toda empresa Costo Contribuci n Marginal Precio Fijo Venta Unitario Unitario Costo Variable Unitario Se pueden dar las siguientes alternativas e Sila contribuci n marginal es positiva contribuye a absorber el costo fijo y a dejar un margen para la utilidad o ganancia e Cuando la contribuci n marginal es igual al costo fijo y no deja margen para la ganancia se dice que la empresa est en su punto de equilibrio No gana ni pierde e Cuando la contribuci n marginal no alcanza para cubrir los costos fijos la empresa puede seguir trabajando en el corto plazo aunque la actividad de resultado negativo Porque esa contribuci n marginal sirve para absorber parte de los costos fijos e La situaci n m s cr tica se da cuando el precio de venta no cubre los costos variables o sea que la contribuci n marginal es negativa En este caso extremo es cuando se debe tomar la decisi n de no continuar con la elaboraci n de un producto o servicio 18 El concepto de contribuci n marginal es muy importante en las decisiones de mantener retirar o incorporar nuevos productos de la empresa por la incidencia
86. ente registro If IsNull rst Fields 2 Or rst Fields 2 O Then Fori 2 1 To Regs If IsNull rst Fields 2 Then Valores i 2 0 Else Valores i rst Fields 2 Fechas i rst Fields 1 End If rst MoveNext Next End If End If Fori 2 To Regs If Valores i lt gt 0 Then rst MoveFirst rst Edit rst Fields 2 Valores i rst Fields 3 Fechas i rst Update Exit For End If Next ControlError 88 If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n BuscaCostoReal2 CodPT rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Julio 05 de 2006 Descripci n Toma toda la informaci n de Costosmp agrupada y la graba en historicomp Function LlenaHistoricoMP Dim dbs As Database rstMP As Recordset rstHist As Recordset cadSQL As String Dim i As Long j As Long On Error GoTo ControlError Antes de iniciar el proceso borra los datos de Historicomp BorraTabla DELETE FROM historicomp cadSQL SELECT Codigo OMP cost fecha cost estandar cost real _ cost reposicion cost exportacion cost simulado FROM costosmp amp _ GROUP BY Codigo OMP cost fecha cost estandar cost real amp _ cost reposicion cost exportacion cost simulado HAVING cost estandar Is Not Null amp _ And cost estandar gt O AND cost real Is Not Null And cost real gt
87. entos herramientas c digo en que esta desarrollado el programa Aplicaci n el programa fue desarrollado en Microsoft Access 2003 Se escogi esta herramienta por su f cil uso de desarrollo e interoperatividad con las dem s herramientas de Office El archivo donde se encuentra la interfase se llama Adco mdb En este archivo se encuentran las consultas los formularios los informes y los m dulos En el archivo llamado AdcoDB mdb se encuentran las tablas Lista de Consultas con AnalisisCostUniD1 con AnalisisCostUniM con Cargo con Color con CostoMaquina con Depto con Entidad con ListaArticulos con ListaLinea con ListaMateriales con ListaPolitica con ListaRutas con ListCuidades con MP con Ruta Lista Formularios con AnalisisCostUniD2 con Articulo con Ciudad con CostoArticulo con CostoMP con Empleado con Linea con ListaCliente con ListaMaquinas con ListaMateriaPrima con ListaProveedor con ListaSeccion con Maquina con RepCostos con Seccion frm AnalisisCostUniD1 frm AnalisisCostUniD2 frm AnalisisCostUniM frm Articulo frm Cargo frm Ciudad frm_Color frm_CostoArticulo frm_CostoMaquina frm_CostoMP frm_Depto frm_Empleado frm_Entidad frm_Linea frm_ListaMateriales frm_CostoArtRep frm_MP frm_RepCostos frm_Ruta frm_Seccion frm_Maquina frm Inicio Lista de Informes inf CostosArt culos Lista M dulos y su respectivo c digo Co
88. es lograr la fidelidad de los clientes Uno de los objetivos empresariales m s importantes es su capacidad de competitividad en el mercado y uno de los factores m s sobresalientes que permite ser diferente a los dem s y ser m s atractivo radica en el precio de los productos Aunque el costo de un producto no determina su precio de venta si es cierto que este precio est limitado por el costo Es un problema que una empresa pierda un negocio porque ya no puede lograr un precio atractivo pero es un problema mayor cuando una empresa pierde la venta pensando que ya no puede dar un precio cuando en realidad s puede hacerlo incurriendo en una disminuci n en sus ventas Por otra parte las peque as organizaciones definen sus precios de venta bas ndose en los precios de sus competidores desconociendo si ellos alcanzan a cubrir los costos de sus empresas La consecuencia inmediata de sta situaci n es que los negocios fracasan alcanzando altas p rdidas financieras Otro fen meno bastante generalizado en las peque as empresas es la insuficiencia en el sistema y registro de los costos impidiendo conocer con precisi n los gastos de producci n en cada l nea factor que constituye un aspecto fundamental para lograr resultados econ micos favorables Para que una empresa cuente con una eficiente direcci n se requiere garantizar un control preciso de los recursos con que se cuenta registrar adecuadamente los hechos econ mico
89. es alternativas para reducir costos Obtener informes generales evaluaci n y toma de decisiones 3 OBJETIVOS 3 1 OBJETIVO GENERAL Desarrollar un sistema din mico operativo en Microsoft Office Access que permita estimar los costos de fabricaci n de un producto bas ndose en criterios econ micos definidos por el usuario 3 2 OBJETIVOS ESPEC FICOS W investigar analizar e identificar algunos conceptos b sicos de la teor a de costos y de la administraci n de base de datos los cuales ser n el soporte para el desarrollo del proyecto W Recopilar identificar y sistematizar la informaci n de tal forma que sea f cilmente manipulable y agilice posteriormente su procesamiento Proveer herramientas para el an lisis de la informaci n las cuales permitan evaluar resultados ante diferentes escenarios productivos teniendo en cuenta diferentes rutas en la elaboraci n de los art culos y los diferentes costos de producci n de materias primas definidos por el usuario que faciliten la toma de decisiones 4 ESTADO DEL ARTE 4 1 SISTEMAS DE COSTOS El an lisis de los costos empresariales es sumamente importante principalmente desde el punto de vista pr ctico puesto que su desconocimiento puede acarrear riesgos para la empresa e incluso como ha sucedido en muchos casos llevarla a su desaparici n Conocer no s lo que pas sino tambi n d nde cu ndo en qu medida cu nto c mo y porqu
90. ficar valores de CostosMP 49 cono Ver Costos PT Es el icono por medio del cual puedo ver desplegado el formulario donde se relacionan los diferentes costos calculados de los productos terminados que fueron procesados Microsoft Access Costo Articulos 123 Mantenimientos Procesos ig Xy Egon 42 5 OU XX 0 2 C digo MER Fecha Estandar Promedio Reposici n Simulado Exportacion psc o MAA 5 Eum AAA 27 AM 5 3 2 AN LISIS DE COSTOS FINAL Esta es la etapa final del proyecto donde describimos las operaciones que ejecuta el programa para calcular los costos de los art culos basado en la informaci n almacenada en las tablas El informe final se divide en 5 grandes grupos Datos Generales Descripci n de Materiales Descripci n de Rutas Criterio de Evaluaci n gt Consolidado Costos x Unidad de Almacenamiento 50 E Microsoft Access Analisis de Costos Art culo 30001000002 01 07 2009 Operaciones Cliente STOCK El E Nombre COLOR SUPER 60 GR e xi Secci n CONDIMENTOS Und x Und de Almac 1 Costo definido in
91. haCostos End Function Autor Reinel Gallego Hansson Fecha Junio 25 de 2006 Inicia el proceso de Costos donde verifica que cada c digo de PT OMP y M quina cumpla con las condiciones para ser procesado si alguno no cumple con las condiciones se grabar en una tabla de reportes Function IniciaCostos ByVal Fecha ByVal Tipo As String Dim cadSQL As String On Error GoTo ControlError Establece el campo acumtipo a False ActualizaTabla UPDATE AnalisisCostUniM SET acutipo False Select Case Tipo Case 1 Indica que se pasa informaci n de la Fecha L nea y Secci n cadSQL SELECT artid FROM Art culo WHERE artseccion In amp DatosCostos 2 amp AND artlinea IN amp DatosCostos 3 amp Case 1b Indica que se pasa informaci n de la Fecha y L nea cadSQL SELECT artid FROM Art culo WHERE artlinea IN DatosCostos 3 amp Case 1c Indica que se pasa informaci n de la Fecha y Secci n cadSQL SELECT artid FROM Art culo WHERE artseccion In amp DatosCostos 2 amp Case 2 Indica que se pasa informaci n de la Fecha y Art culos If DatosCostos 1 Then cadSQL SELECT artid FROM Art culo Se ha seleccionado todos Art culos Else cadSQL SELECT artid FROM Art culo WHERE artid In amp DatosCostos 1 amp End If End Select Llama a la funci n para verificar que las tablas relacionadas con art culos tengan art culos If VerificaArt culos
92. i n Buenos Aires Editorial Aguilar 1997 Capitulo 4 69 a 125 p Capitulo 19 MAYNARD Harold B Manual del Ingeniero Industrial Econom a y Controles Estimaci n de costos New York Mc Graw Hill 1997 Secci n 9 Capitulo 4 111 124 p MAYNARD Harold B Manual del Ingeniero Industrial Uso de las computadoras Administraci n de base de datos New York Mc Graw Hill 1997 Secci n 12 Capitulo 2 21 41 p 63 MICROSOFT CORPORATION Microsoft Access 97 Referencia R pida Visual Washington E E U U McGraw Hill 1998 5 a 108 p 64 ANEXOS Anexo 1 TABLAS DE RECOLECCI N DE DATOS Tabla 1 ARTICULOS DE EMPRESA Nombre Cliente Und de almacenamiento Und x Und de almacenamiento Linea Ancho Largo Alto Peso Neto Gr Peso Bruto Gr Volumen Densidad Color Tama o lote Fecha Secci n Tabla 2 MAQUINAS Tabla 3 MATERIAS PRIMAS Tabla 4 PROVEEDORES Y CLIENTES Nombre Direcci n Telefono Fax Pagina web Correo electr nico Contacto Vendedor Ciudad Tipo Tabla 6 SECCI N Tabla 7 BOM LISTAS DE MATERIALES 66 Tabla 8 RUTAS DE PRODUCCI N Tabla 9 COSTOS MATERIAS PRIMAS Tabla 10 COSTOS MAQUINA Cod M quina Fecha MOD CIFVAR Depreciaci n Servicios Capacidad Distribuci n p ESO E tgp i i 67 Anexo 2 C DIGO EN VISUAL BASIC MANUAL
93. iciando el a o Tamafiolote 1600 Unidad Almac UNIDAD Iz Mene OUO CHR VARABEE amano lote v OSTO C LF FIJO Ancho 11 00 Largo 0 Alto 16 Peso neto 60 Peso bruto 62 Volumen oj OSTO CENTROS DE SERVIC Ds di As 9 Color ARANA OSTO CENTROS DE CAPACIDAI n Tow proc E OSTO CENTROS DE DISTRIBUCION Descripci n Material Unidad Medida Consumo Desp Consumo Costo Sim Costo Costo Sim Lote L1 ei x Unidad Real Total Unt Material Sim Unidad Materiales Maiz Partido KILOS z o04181 19 10 0 0 04645761 68d 31 49 059 53 5 Tartrazina SP KILOS gt 0 0007666 10 0 0 00085172 15750 13 21 463 23 4 ACHIOTE ENTERO KILOS gt 0 0020906 10 0 0 00232288 4200 10 15 610 17 0 Sal Polvillo KILOS z 0 0153310 10 0 0 01703446 206 4 5615 6 1 COSTO TOTAL MATERIALES DIRECTOS gt 57 91 747 100 t Maquina Aist TOTAL M O CLF V FSD DEPRECIACION CENTROS DE CENTROS DE CENTROS DE Totales Unitari HORAS SERVICIO CAPACIDAD DISTRIBUCION 1 MOLO0A 0 16 0 12 028 1 108 74 1225 97 9 473 73 0 00 30 27 151 33 145284 1344290 84 1 MOLOO1 0 29 0 18 0 43 1 669 44 1 845 96 14 264 77 0 00 45 58 227 86 2 187 57 20 241 21 126 1 MEZ001 0 25 022 0 47 1 8372 2 031 49 15 698 45 0 00 50 16 250 77 2 407 44 22 275 55 1 4UTOO1 0 50 074 1 24 4 835 1 5 346 35 41 314 19 659 14 132 01 659 95 6 335 72 59 282 54 2 MOLOO2 0 16 0 12 o28 1 108 74 1225 97
94. ields 0 C digo de PT rstTmp Fields 1 rst Fields 1 Valor Real2 rstTmp Fields 2 rst Fields 2 Valor Materiales 2 rstTmp Update rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n Real2Mat2 rst Close dbs Close End Function Function RetornaReal2Mat2 ByVal Fecha Dim dbs As Database rst As Recordset rstTmp As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT FROM tempReal2Mat2 WHERE trmpt In SELECT Codigo pt FROM costospt _ WHERE copt fecha Format Fecha mm dd yyyy ORDER BY trmpt IniRst dbs rst cadSQL cadSQL SELECT Codigo pt copt real2 copt_materiales2 FROM costospt amp WHERE Codigo pt In SELECT trmpt FROM tempReal2Mat2 AND amp _ copt fecha Format Fecha mm dd yyyy ORDER BY Codigo pt IniRecordset dbs rstTmp cadSQL Do While Not rstTmp EOF rstTmp Edit rstTmp Fields 1 rst Fields 1 rstTmp Fields 2 rst Fields 2 rstTmp Update rstTmp MoveNext rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n RetornaReal2Mat2 rst Close dbs Close End Function Function EliMaqSob ByVal Fecha
95. im dbs As Database rstPT As Recordset rstHist As Recordset cadSQL As String Dim i As Long j As Long On Error GoTo ControlError Antes de iniciar el proceso borra los datos de Historicopt BorraTabla DELETE FROM historicopt cadSQL SELECT Codigo pt copt fecha copt estandar copt reall copt real2 amp copt reposicion copt exportacion copt simulado FROM costospt IniRecordset dbs rstPT cadSQL cadSQL SELECT hptcodigo hptfecha hpttipo hptvalor FROM historicopt 90 IniRecordset dbs rstHist cadSQL rstPT MoveLast rstPT MoveFirst Fori 1 To rstPT RecordCount 2 7 rstHist AddNew rstHist Fields 0 rstPT Fields O rstHist Fields 1 rstPT Fields 1 Select Case j Case 2 rstHist Fields 2 1 Costo Est ndar rstHist Fields 3 rstPT Fields j Case 3 rstHist Fields 2 2 2 Costo Real rstHist Fields 3 2 rstPT Fields j Case 4 rstHist Fields 2 2 3 Costo Real2 rstHist Fields 3 rstPT Fields j Case 5 rstHist Fields 2 4 Costo Reposici n rstHist Fields 3 rstPT Fields j Case 6 rstHist Fields 2 5 Costo Exportaci n rstHist Fields 3 2 rstPT Fields j Case 7 rstHist Fields 2 2 6 Costo Simulado rstHist Fields 3 rstPT Fields j End Select rstHist Update Next rstPT MoveNext Next ActualizaTabla UPDATE HistoricoPT SET hptvalor 0 WHERE hptvalor Null ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp
96. ina ON 81 M quina maqid CostoM quina comm quina INNER JOIN Ruta ON M quina maqid Ruta rutm quina amp _ WHERE rutart culo In cadArt culos AND comfecha Format Fecha mm dd yyyy E _ AND commod lt 0 OR commod Is Null OR comcifvar lt 0 OR comcifvar Is Null OR comciffij lt 0 _ OR comciffij 15 Null OR comdepreciacion lt 0 OR comdepreciacion 15 Null OR comservicios lt 0 _ OR comservicios Is Null OR comcapacidad lt 0 OR comcapacidad Is Null OR comdistribucion lt 0 OR _ comdistribucion IS NULL ORDER BY rutart culo IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcsubcodigo rcfecha rcdescripcion VALUES amp C amp rst Fields 0 rst Fields 1 Z Format Fecha mm dd yyyy Verificar valores en Costo M quina rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n VerificaValABCMaq rst Close dbs Close End Function Function VerificaTieneABCMag ByVal Fecha cadArt culos Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT rutart culo rutm quina FROM Ruta amp _ WHERE rutm quina Not In SELECT comm quina FROM Costom quina
97. informes Este reporte relaciona el listado de art culos con los diferentes costos calculados bas ndose en el criterio del costo de la materia prima 5 costos de materia prima inicialmente definidos implican 5 costos de producto terminado IZ Microsoft Access Reporte Costos Articulos Escriba una pregunta Reporte de Costos Articulos Lm res 30001000002 COLOR SUPER 60 GR 01 07 2009 201 210 212 219 30001000011 COLOR CORRIENTE 125 GR 01 07 2009 269 281 22 296 316 30001000021 COLORECONOMICO ARROBA 2 125 GR 01 07 2009 4749 5 191 5526 534 30001000055 COLOR SUPER 125 GR T A T 01 07 2009 313 36 30001000074 COLOR SUPER 125 GR GUIS AJO 01 07 2009 685 5758 30001000082 COLORDE RAIZ 60 GR 01072009 5202 5216 30001000083 COLOR DE RAIZ 125 GR 01 07 2009 399 49 30008000001 GUISASON 60 GR 01 07 2009 329 50012000001 SEMILLA AVES ORNAME NTALES 250 GR 01 07 2009 50012000003 SEMILLA AVES ORNAME NTALES 500 GR 01 07 2009 P gina 14 4 1 JM m J D cono procesar Es el icono por medio del cual se procesan los costos de los productos de acuerdo a los par metros anteriormente definidos 48 cono Ver An lisis Es el icono por medio del cual puedo ver el reporte general de costos el cual analizaremos seguidamente Microsoft Access Analisis de Costos
98. introducidos para ser aceptados 23 Texto de validaci n Define el texto del mensaje que se visualiza cuando Todos excepto OLE y contador los datos no cumplen las condiciones enumeradas en la regla de validaci n Requerido Permite especificar si es necesario que exista un valor Todos excepto contador en un campo Permitir longitud Permite especificar si una cadena de longitud cero Texto memo cero es una entrada v lida para el campo Indexado Define un campo como ndice o campo clave Texto num rico contador fecha hora Registros el conjunto completo de los campos que describe una entidad define un registro Tablas es el lugar en el que se almacena la informaci n relacionada con una parte espec fica del negocio o trabajo Las tablas se organizan en filas y columnas Cada fila representa un conjunto de datos denominado registro Las columnas representan una parte de informaci n espec fica denominada campo Una tabla contiene la informaci n que deseas organizar y recuperar Consulta es una sencilla pregunta que se formula a una base de datos para localizar una informaci n espec fica Formulario facilita la introducci n de informaci n en las tablas indicando la informaci n correcta que se debe introducir comprueban si existen errores y luego almacenan los datos en la tabla apropiada Normalmente un formulario muestra de una sola vez todos los campos de un registro haciendo m s sencillo que s
99. l c digo de Art culo tenga m quinas asignadas en rutaspt si tiene m quinas que verifique Estandar de Tiempos y abcm quinas Function VerificaRutasPT ByVal Fecha ByVal cadArt culos Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT artid FROM Art culo WHERE artid Not In SELECT rutart culo FROM Ruta amp _ AND artid IN cadArt culos IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcfecha rcdescripcion VALUES amp C amp rst Fields 0 Z Format Fecha mm dd yyyy No existe en RutasPT rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaRutasPT rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 27 de 2006 Descripci n Verifica que el c digo del Art culo tenga m quinas asignadas en Rutas si tiene verifica que los campos en abcm quina tengan informaci n Function VerificaValABCMaq ByVal Fecha ByVal cadArt culos Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT rutart culo comm quina comfecha commod comcifvar comciffij comdepreciacion _ comservicios comcapacidad comdistribucion FROM M quina INNER JOIN CostoM qu
100. lementaci n de ABC en la empresa implica una reingenier a se requiere el apoyo de sistemas inform ticos y un total acceso a la informaci n de todas las reas de la empresa e Estudio de los objetos de costo En esta etapa se identifican y agrupan los objetos de costo que van ha ser costeados Ya que sobre estos se realizar todo el proceso e An lisis y Determinaci n de actividades y sus costos e Definici n de Actividades Se identifican y agrupan las actividades por su forma de actuar sobre los productos Ejemplo repetitivas o no primarias o secundarias que act an sobre el producto el lote la l nea o sobre todo el proceso etc Es recomendable utilizar el concepto de cadena de valor para determinar las actividades del negocio A partir de este an lisis se podr 12 4 1 3 tomar decisiones sobre cada actividad dependiendo de su aporte a al valor del producto Cadena de Valor Es todo del proceso necesario para la elaboraci n comercializaci n y mantenimiento de los productos Identificando las actividades y su aporte de valor en el producto Asignaci n de costos a las actividades A partir de los datos hist ricos se asignan costos de los recursos a las actividades Ejemplo el costo de Arriendo se asignara a cada actividad de acuerdo a un criterio de costo por ejemplo rea de que ocupa cada actividad Identificaci n de los inductores de costo de cada actividad Esta fase de la implementaci n es la que mayor cantidad
101. mber lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n GrabaCostosMaq codigoPT amp rstM Fields 0 rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 26 de 2006 Descripci n Verifica que el c digo de Art culo tenga Lista Materiales si tiene verifica que cada una de las formulas tenga Consumo y Porc Desperdicio y verifica que cada c digo de OMP tenga informaci n en la tabla costosmp en cada uno de sus campos Verifica que las tablas abcmaquinas y costosmp coincidan con la fecha a procesar Function VerificaFormulacion ByVal Fecha ByVal cadArticulos Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT limarticulo limmateriaprimal limconsumo limporcentajeDesperdicio FROM ListaMateriales amp _ WHERE limConsumo lt 0 Or limConsumo Is Null Or limPorcentajeDesperdicio lt 0 Or _ limPorcentajeDesperdicio Is Null AND limarticulo IN cadArticulos ORDER BY limarticulo IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcsubcodigo rcfecha rcdescripcion VALUES amp amp rst Fields O rst Fields 1 Z Format Fecha mm dd yyyy Verificar Consumo y Desperdicio rst MoveNext Loop ControlError
102. mfecha commaquina rutcuadre arttamanolote rutejecucion _ AS Proceso rutcuadre proceso AS TotalHoras commod totalhoras AS MOD _ comcifvar totalhoras AS CIFV comciffij totalhoras AS CIFF comdepreciacion totalhoras amp _ AS DEPRECIACION comservicios totalhoras AS SERVICIOS comcapacidad totalhoras _ AS CAPACIDAD comdistribucion totalhoras AS DISTRIBUCION rutejecucion arttamanolote amp _ commod comcifvar comciffi comdepreciacion comservicios comcapacidad comdistribucion amp _ FROM Maquina INNER JOIN CostoMaquina ON Maquina maqgid CostoMaquina commaquina _ INNER JOIN Articulo INNER JOIN Ruta ON Articulo artid Ruta rutarticulo 8 ON Maquina maqid Ruta rutmaquina WHERE comfecha Format Fecha mm dd yyyy amp _ AND rutarticulo IN SELECT acuarticulo FROM AnalisisCostUniM ORDER BY rutarticulo comfecha commaquina IniRst dbs rstMaq cadSQL Graba en las tablas dependientes de AnalisisCostUniM que son AnalisisCostUniD1 y AnalisisCostUniD2 GrabaCostosMP rstMP E Fecha GrabaCostosMaq rstMaq Fecha ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n IniciaGrabacionCostos rstMP Close rstMaq Close dbs Close End Function Autor Reinel Gallego Hansson Fech
103. mpos que se utilizar n en los procesos VerificaTamLote Fecha cadSQL PREGUNTAR SI ES NECESARIO ESTE CODIGO VerificaFormulacion Fecha cadSQL VerificaValCostosMP Fecha cadSQL VerificaTieneCostosMP Fecha cadSQL VerificaRutasPT Fecha cadSQL VerificaTieneEstTiempos Fecha cadSQL VerificaCuadrelnv Fecha cadSQL VerificaValABCMaq Fecha cadSQL VerificaTieneABCMaq Fecha cadSQL Llama a las funciones para Grabar la informaci n que no presenta ninguna inconsistencia If Not GrabaCostosM Fecha cadSQL Then IniciaGrabacionCostos Fecha EliMaqSob Fecha GrabaAnalisisCostos Fecha GrabaAnalisisCostMaq Fecha End If VerificaDatosFinales Fecha ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n IniciaCostos End Function Autor Reinel Gallego Hansson Fecha Agosto 5 de 2009 Descripci n Verifica que en cada una de las tablas que tienen relaci n con la tabla art culo tengan en ellas art culos Function VerificaArticulos As Boolean Dim dbs As Database cadSQL As String Dev As Boolean Dim rstRuta As Recordset rstMateriales As Recordset On Error GoTo ControlError Dev False cadSQL SELECT FROM Ruta IniRst dbs rstRuta cadSQL cadSQL SELECT FROM ListaMateriales IniRst dbs rstMateriales cadSQL If rstRuta EOF Then MsgBox No hay Art culos
104. n cuanto a investigaci n para lograr mejor control de la elaboraci n y la productividad que inspiraron al Ing Harrington Emerson 1908 para profundizar sobre el tema quien a su vez sirvi de inspiraci n al Contador Chester G Harrinson para que en 1921 surgiera la T cnica de Valuaci n de Costos Est ndar consider ndose a Emerson el precursor y a Harrinson el realizador cuyo primer ensayo fue hecho en Estados Unidos 1912 La t cnica de costos est ndar es la m s avanzada de las existentes ya que sirve de instrumento de medici n de la eficiencia porque su determinaci n est basada precisamente en la eficiencia del trabajo en la entidad econ mica Para la utilizaci n de los costos est ndar se pueden presentar dos situaciones una que considera a la empresa en su eficiencia m xima que es cuando no se calculan perdidas de tiempo y se acepta el rendimiento climax de la maquinaria situaci n ut pica pero con proyecci n de superaci n Otra en la cual se consideran ciertos casos de p rdida de tiempo tanto en el aprovechamiento del esfuerzo humano como de la capacidad productiva de la maquinaria promedios dictados por la experiencia y por los estudios que sobre el particular hayan hecho los t cnicos en la materia ingenieros industriales por tanto ponderando estas situaciones se logra obtener una eficiencia en su punto ptimo El costo est ndar indica lo que debe costar un art culo con base en la eficiencia del tra
105. ncipal en la funci n TieneDatos 101 dbs Close End Function Function getFileName FileName As String Muestre el cuadro de di logo Abrir archivo de Office para elegir un nombre de archivo para el registro del empleado actual Si el usuario selecciona un archivo mu strelo en el control de imagen Dim result As Integer With Application FileDialog msoFileDialogFilePicker Title 2 Seleccione la imagen del empleado Filters Add All Files Filters Add J PEGs jpg Filters Add Bitmaps bmp FilterlIndex 3 AllowMultiSelect False InitialFileName CurrentProject Path result Show If result lt gt 0 Then FileName Trim Selectedltems Item 1 Me ImagePath Visible True Me ImagePath SetFocus Me ImagePath Text fileName Me Nombre SetFocus Me ImagePath Visible False End If End With End Function Function GetFromINI sSection As String sKey As String sDefault As String slniFile As String Dim sBuffer As String IRet As Long sBuffer String 255 0 Llama a la DLL IRet GetPrivateProfileString sSection sKey sBuffer Len sBuffer slniFile If IRet 2 0 Then Fallo de la DLL save default If sDefault lt gt Then AddToINI sSection sKey sDefault slniFile sDefault Else DLL con existo return string GetFromINI Left sBuffer InStr sBuffer Chr 0 1 End If End Function Devuelve True si todo va bien Si la secci n no e
106. ntes de producci n Ruta 1 compuesta por las m quinas MOL002 MOLO001 MEZOO1 AUTOO1 Ruta 2 compuesta por las m quinas MOL002 MOLO001 MEZ002 AUTOO1 La diferencia entre ellas radica nicamente en la M quina Mezcladora Luego para filtrar la ruta debemos seguir dos pasos filtraremos la ruta 1 55 Paso 1 ubicamos el curso en cualquiera de las casillas donde se especifica el c digo de la ruta LUII encuentra en la AR iog 018 043 Paso 2 ubicamos en la barra de herramientas el icono filtrar y dar click Opci n Opci n Filtrar Quitar Filtro 1001000002 Fecha Operaciones Est ndar Luego lo que tenemos es la ruta filtrada y el costeo del art culo se procesar teniendo en cuenta solo estas tarifas 56 LUD2IU IUIAL VIMELIUD gt IIH Alist Bes V C LF FSD DEPRECIACION ROS DE CENTROS DE CENTROS DE A CAPACIDAD DISTRIBUCION Ht 2 Lug og 11087 122597 9 473 73 0 00 30 27 151 33 148284 13 44290 840 1 AA MOLDO1 T 2001 1 837 2 2 031 49 15 TE 207001 os or 124 48351 534 35 41 314 19 659 14 132 01 6599 63357 592825 3705 Registro 14 4 1 JPA de 10 _ Identificaci n de la ruta A Microsoft Of TE Microsoft Power ul TRABAJO D
107. o 1 Estandar rstCosto Fields 3 ColCosto 2 Real1 rstCosto Fields 4 ColCosto 3 Reposici n rstCosto Fields 6 ColCosto 4 Exportaci n rstCosto Fields 5 ColCosto 5 Simulado rstCosto Fields 8 ColCosto 2 Materiales 1 rstCosto Update rst MoveNext Erase ColCosto Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n GrabaAnalisisCostos rst Close rstCosto Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Julio 02 de 2006 Descripci n Obtiene los valores de MOD CIFV CIFF DEPRECIASI N SERVICIOS CAPACIDAD Y DISTRIBUCION y los divide entre el tama o del lote y al final los suma para devolver el total Function GrabaAnalisisCostMaq ByVal Fecha As Single Dim dbs As Database rst As Recordset cadSQL As String i As Long Total As Single Dim rstCostos As Recordset CodPT As String CodCostos As String On Error GoTo ControlError cadSQL SELECT _ acud2pt acud2fecha 2 maqnombre acud2alistamiento acud2proceso _ acud2alistamiento acud2proceso AS Total horas acud2mod acud2cifv acud2ciffsd _ AnalisisCostUniD2 acud2depreciasion acud2servicios acud2capacidad acud2distribucion _ acud2mod acud2cifv acud2ciffsd acud2depreciasion acud2servicios _ acud2capacidad acud2dist
108. o productivo costo de envases y embalajes costos de almacenamiento dep sito y expedici n Costo de Comercializaci n Es el costo que posibilita el proceso de venta de los bienes o servicios a los clientes Por ejemplo sueldos y cargas sociales del personal del rea comercial comisiones sobre ventas fletes hasta el lugar de destino de la mercader a seguros por el transporte de mercader a promoci n y publicidad servicios t cnicos y garant as de post ventas Costo de Administraci n Son aquellos costos necesarios para la gesti n del negocio Por ejemplo sueldos y cargas sociales del personal del rea administrativa y general de la empresa honorarios pagados servicios profesionales servicios p blicos correspondientes al rea administrativa alquiler de oficina papeler a e insumos propios de la administraci n 14 Costo de financiaci n Es el correspondiente a la obtenci n de fondos aplicados al negocio Por ejemplo intereses pagados por pr stamos comisiones y otros gastos bancarios impuestos derivados de las transacciones financieras 4 1 3 2 Clasificaci n seg n su grado de variabilidad Esta clasificaci n es importante para la realizaci n de estudios de planificaci n y control de operaciones Est vinculado con las variaciones o no de los costos seg n los niveles de actividad Costos Fijos Son aquellos costos cuyo importe permanece constante independiente del nivel de actividad de la em
109. odas las sentencias SQL Option Compare Database Option Explicit Function EliminaRegistros ByVal cadSQL As String Dim dbs As Database rst As Recordset i As Integer On Error GoTo ControlError IniRecordset dbs rst cadSQL If Not rst EOF Then rst MoveLast rst MoveFirst Fori 1 To rst RecordCount rst Delete rst MoveNext Next End If ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Err Number amp vbCr _ amp Descripci n Err Description amp vbCr _ amp M dulo de Elimina Registros rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Julio 02 de 2006 Descripci n Funci n de proposito general la cual permite pasar una cadena con una instrucci n UPDATE Function ActualizaTabla ByVal strSQL As String Dim dbs As Database qdf As QueryDef On Error GoTo ControlError Devuelve una referencia a la base de datos activa Set dbs CurrentDb Crea un nuevo objeto QueryDef Set qdf 2 dbs CreateQueryDef strSQL Ejecutar QueryDef qdf Execute qdf Close ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n ActualizaTabla Set dbs Nothing End Function Function BorraTabla ByVal strsQL As String Dim dbs As Database qdf As QueryDef On Error GoTo ControlError Devuelv
110. olCosto 5 ColCosto 5 rst Fields 6 rst Fields 15 Costo Simulado rst MoveNext If rst EOF Then Exit Do Loop If Not rst EOF Then CodPT rst Fields 0 rst MovePrevious rstCosto AddNew rstCosto Fields 0 rst Fields 0 C digo de PT rstCosto Fields 1 Fecha rstCosto Fields 2 ColCosto 1 Estandar rstCosto Fields 3 ColCosto 2 Reall 85 rstCosto Fields 4 ColCosto 3 Reposici n rstCosto Fields 6 ColCosto 4 Exportaci n rstCosto Fields 5 ColCosto 5 Simulado rstCosto Fields 8 ColCosto 2 Materiales 1 rstCosto Update rst MoveNext Erase ColCosto Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n GrabaAnalisisCostos rst Close rstCosto Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Julio 02 de 2006 Descripci n Obtiene los valores de MOD CIFV CIFF DEPRECIASI N SERVICIOS CAPACIDAD Y DISTRI BUCION y los divide entre el tama o del lote y al final los suma para devolver el total Function GrabaAnalisisCostMaq ByVal Fecha As Single Dim dbs As Database rst As Recordset cadSQL As String i As Long Total As Single Dim rstCostos As Recordset CodPT As String CodCostos As String On Error GoTo ControlError cadSQL SELECT acud2pt acud2fecha 2 maqnombre acud2alistamiento acud2proceso
111. ontrol El Costo es el sacrificio o esfuerzo econ mico que se debe realizar para lograr un objetivo Los objetivos son aquellos de tipo operativos como por ejemplo pagar los sueldos al personal de producci n comprar materiales fabricar un producto venderlo prestar un servicio obtener fondos para financiarnos administrar la empresa etc Si no se logra el objetivo deseado decimos que tenemos una p rdida 4 1 1 Costos predeterminados Los costos predeterminados son aquellos que se calculan antes de hacerse o de terminarse el producto y seg n sean las bases que se utilizan para su c lculo se dividen en costos estimados y costos est ndar e Los costos estimados son una t cnica que se basa en la experiencia habida el costo estimado indica lo que puede costar algo motivo por el cual al final del periodo se ajusta a los costos reales e Los costos est ndar representan el costo planeado de un producto y por lo general se establecen mucho antes de que se inicie la producci n proporcionando as una meta que debe alcanzarse Del R o Gonz lez Crist bal Costos Il Predeterminados de Operaci n y de Producci n en com n o Conjunta Editorial ECAFSA Capitulo Sistema de Costos Est ndar La t cnica de costos est ndar tuvo su origen a principios del siglo XX con motivo de la doctrina llamada Taylorismo o sea el desplazamiento del esfuerzo humano por la m quina F W Taylor en 1903 realiz las primicias e
112. or a durante el desarrollo de este proyecto Con el ampli mis conocimientos y compart experiencias las cuales fueron de gran valor para mi crecimiento personal y profesional Gracias por su apoyo y respaldo durante la realizaci n de este trabajo su aporte fue esencial en el enriquecimiento de este proyecto Al Ingeniero Reynel Gallego quien contribuy con sus conocimientos inform ticos para lograr implementar el modelo de costos en la herramienta de Office Microsoft Access utilizando un lenguaje en Visual Basic A la empresa Alimentos Guisas n de Colombia S A por su confianza colaboraci n y contribuci n en el suministro de la informaci n necesaria para llevar a cabo el desarrollo de un sistema de costos para sus productos A la Universidad del Valle y a todo su equipo de profesores quien d a a d a trabajan para formar Ingenieros capaces de describir analizar dise ar implantar evaluar y mejorar el desempe o de sistemas de producci n de bienes y servicios Gracias por esta formaci n brindada la cual ha sido pilar para hacer posible la realizaci n de este trabajo TABLA DE CONTENIDO INTRODUCCI N 1 PLANTEAMIENTO DEL PROBLEMA 2 JUSTIFICACI N 3 OBJETIVOS 3 1 OBJETIVO GENERAL 3 2 OBJETIVOS ESPEC FICOS 4 ESTADO DEL ARTE 4 1 SISTEMA DE COSTOS 4 1 1 Costos Predeterminados 4 1 2 Sistema de Costos ABC 4 1 3 Tipo de Costos 4 1 3 1 Clasificaci n seg n la funci n que cumplen 4 1 3 2 Clasifica
113. ordSet manejo de cadenas Option Compare Database Option Explicit Public Terminar As Boolean TurnoHora As Integer vgRuta As String Public RutaFotos As String RutaApp As String RutaDB As String Rutal magenes As String Private Declare Function GetPrivateProfileString Lib kernel32 Alias GetPrivateProfileStringA ByVal IpApplicationName As String ByVal IpKeyName As Any ByVal IpDefault As String ByVal IpReturnedString As String ByVal nSize As Long ByVal IpFileName As String As Long Private Declare Function WritePrivateProfileString Lib kernel32 Alias WritePrivateProfileStringA ByVal IpApplicationName As String ByVal IpKeyName As Any ByVal IpString As Any ByVal IpFileName As String As Long Function IniRecordset dbs As Database rst As Recordset cadSQL As String Set dbs CurrentDb Set rst dbs OpenRecordset cadSQL dbOpenDynaset End Function Function IniRst dbs As Database rst As Recordset cadSQL As String Set dbs CurrentDb Set rst 2 dbs OpenRecordset cadSQL dbOpenForwardOnly End Function Autor Reinel Gallego Hansson Fecha Mayo 12 de 2006 Descripci n Almacena en una variable de cadena todos los datos de un control de lista separados por comas con el objetivo de pasarlo como una sola variable Function SelecLista Ctrl As ListBox As String Dim viltems As String i As Long Cont As Variant For Each Cont In Ctrl ltemsSelected vlltems vlltems Ctrl ltemData Cont
114. otexportaci n 15 Null OR cotsimulado 0 OR cotsimulado Is Null amp _ ORDER BY limart culo cotmateriaprima IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcfecha rcdescripcion VALUES amp rst Fields O rst Fields 1 Format Fecha mm dd yyyy z Verificar valores de CostosMP rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Costos en la funci n VerificaCostosMP rst Close dbs Close End Function Function VerificaTieneCostosMP ByVal Fecha ByVal cadArt culos Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT limart culo limmateriaprima FROM ListaMateriales _ WHERE limmateriaprima Not In SELECT cotmateriaprima FROM CostoMateriaPrima _ AND limart culo IN amp cadArt culos amp IniRst dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcsubcodigo rcfecha rcdescripcion VALUES amp _ rst Fields O rst Fields 1 Format Fecha mm dd yyyy No existen en CostosMP rst MoveNext Loop 78 ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Err Number _
115. pas permite corregir los desv os del pasado y preparar una mejor administraci n del futuro Esencialmente se utiliza para realizar las siguientes tareas Sirve de base para calcular el precio adecuado de los productos y servicios Conocer qu bienes o servicios producen utilidades o p rdidas en que magnitud Se utiliza para controlar los costos reales en comparaci n con los costos predeterminados comparaci n entre el costo presupuestado con el costo realmente generado post c lculo Localiza puntos d biles de una empresa Determina la parte de la empresa en la que m s urgentemente se debe realizar medidas de racionalizaci n Controla el impacto de las medidas de racionalizaci n realizadas Dise ar nuevos productos y servicios que satisfagan las expectativas de los clientes y al mismo tiempo puedan ser producidos y entregados con un beneficio Guiar las decisiones de inversi n 1 BACKER Morton y JACOBSEN Lyle Contabilidad de costos Un enfoque administrativo para la toma de decisiones 2 ed M xico McGraw Hill 1988 Elegir entre proveedores alternativos Negociar con los clientes el precio las caracter sticas del producto la calidad las condiciones de entrega y el servicio a satisfacer unos procesos eficientes y eficaces de distribuci n y servicios para los segmentos objetivos de mercado y de clientes Utilizar como instrumento de planificaci n y c
116. pdate rstM MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n GrabaCostosMP rst Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 29 de 2006 Descripci n Graba la informaci n referente a las Maquinas en AnalisisCostUniD2 Function GrabaCostosMaq rstM As Recordset ByVal Fecha Dim dbs As Database rst As Recordset cadSQL As String On Error GoTo ControlError cadSQL SELECT acud2id acud2pt acud2fecha acud2maq acud2alistamiento acud2proceso _ acud2mod acud2cifv acud2ciffsd acud2depreciasion acud2servicios acud2capacidad acud2distribucion FROM AnalisisCostUniD2 IniRecordset dbs rst cadSQL Do While Not rstM EOF rst AddNew rst Fields 0 rstM Fields O Ruta rst Fields 1 rstM Fields 1 Articulo rst Fields 2 2 Fecha Fecha rst Fields 3 rstM Fields 3 Maquina rst Fields 4 rstM Fields 4 Alistamiento Cuadre rst Fields 5 rstM Fields 5 Proceso rst Fields 6 rstM Fields 7 MOD rst Fields 7 rstM Fields 8 CIFV rst Fields 8 rstM Fields 9 CIFF rst Fields 9 rstM Fields 10 DEPRECIACION rst Fields 10 rstM Fields 11 SERVICIOS rst Fields 11 rstM Fields 12 CAPACIDAD rst Fields 12 rstM Fields 13 DISTRIBUCION rst Update rstM MoveNext Loop ControlError If Err Nu
117. presa Se pueden identificar y llamar como costos de mantener la empresa abierta de manera tal que se realice o no la producci n se venda o no la mercader a o servicio dichos costos igual deben ser solventados por la empresa Por ejemplo alquileres amortizaciones o depreciaciones seguros impuestos fijos servicios p blicos luz tel fono gas etc sueldo y cargas sociales de encargados supervisores gerentes etc Costos Variables Son aquellos costos que var an en forma proporcional de acuerdo al nivel de producci n o actividad de la empresa Son los costos por producir o vender Por ejemplo mano de obra directa a destajo por producci n o por tanto materias primas directas materiales e insumos directos impuestos espec ficos envases embalajes y etiquetas comisiones sobre ventas 15 4 1 3 3 Clasificaci n seg n su asignaci n Costos Directos Son aquellos costos que se asigna directamente a una unidad de producci n Por lo general se asimilan a los costos variables Costos Indirectos Son aquellos que no se pueden asignar directamente a un producto o servicio sino que se distribuyen entre las diversas unidades productivas mediante alg n criterio de reparto En la mayor a de los casos los costos indirectos son costos fijos 4 1 3 4 Clasificaci n seg n su comportamiento Costo Variable Unitario Es el costo que se asigna directamente a cada unidad de producto Comprende la unidad de cada materia p
118. que pueden tener los mismos en la absorci n de los costos fijos y la capacidad de generar utilidades Tambi n es importante relacionar la contribuci n marginal de cada art culo con las cantidades vendidas Porque una empresa puede tener productos de alta rotaci n con baja contribuci n marginal pero la ganancia total que generan supera ampliamente la de otros art culos que tienen mayor contribuci n marginal pero menor venta y menor ganancia total 4 1 4 2 Punto de Equilibrio Se dice que una Empresa est en su Punto de Equilibrio cuando no genera ni Ganancias ni P rdidas Es decir cuando el Beneficio es igual a cero Para un determinado costo fijo de la Empresa y conocida la Contribuci n Marginal de cada producto se puede calcular las cantidades de productos o servicios y el monto total de ventas necesario para no ganar ni perder es decir para estar en Equilibrio La f rmula para el c lculo es la siguiente Costo Fijo Total Punto de Equilibrio Cantidades Margen de Contribuci n Punto de Equilibrio en Cantidades x Precio de Venta 19 En el caso a el punto de equilibrio est expresado en cantidades de producto en el caso b en montos de venta Ingreso total Costo total Pe q cantidad vendida Imagen 1 Gr fico del Punto de Equilibrio a rea de P rdida b rea de Ganancia 4 1 5 El precio de Venta El precio de venta e
119. r Number amp vbCr _ amp Descripci n Err Description amp vbCr _ amp En el m dulo de General en la funci n RefreshLink rst Close dbs Close End Function La funci n establece los valores inciales de las rutas si esta ha cambiado Imagenes Base de datos Fotos Documentos Sub SetPath Dim dbs As Database On Error GoTo ControlError Datos Plantillas Documentos Set dbs CurrentDb RutaApp Mid dbs Name 1 Len dbs Name 8 RutaFotos RutaApp amp Fotos Aqui se almacenan las fotos digitalizadas de los alumnos Rutal magenes RutaApp Imagenes Aqui se almacenan las imagenes que lleva la aplicaci n RutaDB RutaApp amp Datos Adcodb mdb Aqui almacena la base de datos ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Tome nota de lo siguiente amp Err Number amp vbCr _ amp Descripci n amp Err Description amp vbCr _ amp En el m dulo de Registro en la funci n SetPath dbs Close End Sub 105 Modelo Entidad Relaci n A continuaci n se mostrar el MER con cada una de las relaciones respectivas Articulo ListaMateriales AnalisisCostUniD1 MateriaPrima CostosArticulos Entidad Maquina maqnombre CostoMaquina 106 Anexo 3 CD CON PROGRAMA DE COSTOS EN MICROSOFT ACCESS 107 ANEXO 1 MANUAL TECNICO ADCO 1 0 Administrador de Costos En el siguiente manual se describir n cada uno de los elem
120. rente a sus costos podr ser almacenada y procesada por medio de esta herramienta buscando finalmente desarrollar e implementar un sistema para el costeo de dicho producto MICROSOFT CORPORATION Microsoft Access 97 Referencia R pida Visual Washington E E U U McGraw Hill 1998 27 5 DESARROLLO DE LA METODOLOG A 5 1 MODELO DE COSTOS El objetivo de todo sistema de costos es la obtenci n del costo unitario de un producto o el costo de una orden de trabajo El camino a seguir para el logro de esto consiste en asignarles lo efectivamente desembolsado para concretarlos es decir que el problema b sico que se debe resolver es el de la imputaci n Para calcular el costo real de un art culo debemos identificar todos los factores que est n involucrados directa e indirectamente en la obtenci n del producto y para el desarrollo de nuestro modelo se definieron como principales factores generadores de costo los materiales la mano de obra y todos los gastos adicionales que incurren en desembolsos para la compa a Costo Producto Costo de los Materiales Costo MOD CIF El costo de los materiales hace referencia como su nombre claramente lo indica a la sumatoria de los costos unitarios de todos los materiales del BOM Bill Of Materials que se requiere para elaborar una unidad del almacenamiento de producto final El costo de la mano de obra directa se determina por la cantidad de horas hombre que se utilizaran en l
121. rentes ambientes o situaciones teniendo en cuenta que el costo de la materia prima puede ser variable En esta tabla y para efectos de nuestro ejemplo relacionamos 5 tipos de costos diferentes para las materias primas definidos por el usuario costo de reposici n real a la fecha costo promedio en el inventario costo est ndar costo definido al inicio del periodo un costo simulado tarifas de prueba y un costo de exportaci n para que sea finalmente el usuario quien defina con cu l de ellos evaluar el costo de sus productos Edici n Insertar Formato Registros Herramientas Ventana 2 AdobePDF i Mantenimientos Procesos ir X orar L 41 Z Materia Prima Est ndar Promedio Reposicion Simulado cotexportaci n ACHIOTE ENTERO 01 07 2009 4 000 00 4 640 00 4 594 00 4 800 00 5 280 00 Tartrazina SP 01 07 2009 15 750 00 18 270 00 18 087 00 18 900 00 20 790 00 Sal Polvillo 01 07 2009 206 00 239 00 237 00 247 00 272 00 Cuchuco 01 07 2009 840 00 974 00 965 00 1 008 00 1 109 00 Punzon 4 R 01 07 2009 28 800 00 33 408 00 33 074 00 34 560 00 38 016 00 Maiz Partido 01 07 2009 660 00 766 00 758 00 792 00 871 00 Cristal de Arroz Mascomix 01 07 2009 800 00 928 00 919 00 960 00 1 056 00 Cristal de Arroz Ajo M 01 07 2009 900 00 1 044 00 5 1 034 00 5 1 08
122. reunir almacenar y recuperar la informaci n de tal manera que satisfaga las necesidades de la organizaci n en forma adecuada as como el uso del software conocidos como sistema para la administraci n de base de datos para facilitar un soporte automatizado en el almacenamiento de los datos y en las actividades de acceso a la misma La administraci n efectiva de los datos puede incrementar la productividad al disminuir el tiempo requerido para producir los resultados de los an lisis e incrementar la confianza asociada con tales resultados Se enlistan en seguida algunas actividades espec ficas que hacen que el conocimiento sobre la base de datos sea importante Control de inventarios Los elementos relevantes de la base de datos describir an el historial de ventas los tiempos y los costos de los pedidos as como el estado actual del inventario La calidad de estos datos tendr un impacto directo en la efectividad de los modelos usados para establecer las pol ticas de inventarios 5 CHARLES W McNichols Manual del Ingeniero Administraci n de base de datos 1 Edici n New York Mc Graw Hill 1997 Secci n 12 cap 2 21 p 21 Procesamiento de la lista de materiales La complejidad de los datos que deben almacenarse en un sistema de listas de materiales Bill Of Materials BOM con frecuencia proporciona el incentivo para implementar tal sistema con software de administraci n de base de datos La estructura jer
123. ribucion AS Totales Totales arttamanolote AS Unitario _ Articulo arttamanolote FROM Articulo INNER JOIN Maquina INNER JOIN AnalisisCostUniD2 ON Maquina maqid amp _ AnalisisCostUniD2 acud2maq ON Articulo artid AnalisisCostUniD2 acud2pt 8 WHERE acud2fecha Format Fecha mm dd yyyy ORDER BY acud2pt IniRecordset dbs rst cadSQL cadSQL SELECT coaarticulo coafecha coaestandar coareal coareposicion coaexportacion coasimulado amp _ FROM costosArticulos WHERE coafecha Format Fecha mm dd yyyy ORDER BY coaarticulo IniRecordset dbs rstCostos cadSQL SELECT coaarticulo 0 coafecha 1 coaestandar 2 coareal 3 coareposicion 4 coaexportacion 5 coasimulado 6 amp _ rst MoveLast rst MoveFirst rstCostos MoveLast rstCostos MoveFirst CodPT rst Fields 0 Do While Not rst EOF Sumo los valores de todas las columnas de Costo y las divido entre el Tama o de lote Do While CodPT rst Fields 0 Total Total rst Fields 15 rst MoveNext If rst EOF Then Exit Do Loop CodCostos rstCostos Fields 0 rstCostos Edit rstCostos Fields 2 rstCostos Fields 2 Total Estandar rstCostos Fields 3 rstCostos Fields 3 Total Reall rstCostos Fields 4 rstCostos Fields 4 Total Reposici n rstCostos Fields 5 rstCostos Fields 5 Total Exportaci n rstCostos Fields 6 rstCostos Fields 6 Total Simulado rstCostos Update rstCostos Mo
124. rima o materiales utilizados para fabricar una unidad de producto terminado as como la unidad de mano de obra directa la unidad de envases y embalajes la unidad de comisi n por ventas etc Costo Variable Total Es el costo que resulta de multiplicar el costo variable unitario por la cantidad de productos fabricados o servicios vendidos en un per odo determinado sea ste mensual anual o cualquier otra periodicidad La f rmula del costo variable total es la siguiente Costo Variable Total Costo Variable Unitario X Cantidad 16 Para el an lisis de los costos variables se parte de los valores unitarios para llegar a los valores totales En los costos fijos el proceso es inverso se parte de los costos fijos totales para llegar a los costos fijos unitarios Costo Fijo Total Es la suma de todos los costos fijos de la empresa Costo Fijo Unitario Es el costo fijo total dividido por la cantidad de productos fabricados o servicios brindados Costo fijo Unitario Costo Fijo Total Cantidad Costo Total Es la suma del Costo Variable m s el Costo Fijo Se puede expresar en Valores Unitarios o en Valores Totales Costo Total unitario Costo Variable unitario Costo Fijo unitario Costo Total Costo Variable Total Costo Fijo Total 4 1 4 Contribuci n Marginal y Punto de Equilibrio 4 1 4 1 Contribuci n Marginal Se llama contribuci n marginal o margen de contribuci n a la diferencia entre el Precio de V
125. rmite seleccionar la secci n que desea evaluar y corre solamente los costos de los productos que hacen parte de esa secci n L nea despliega todas las l neas de producci n creadas en la tabla l nea El esquema permite seleccionar la l nea que desea evaluar y corre solamente los costos de los productos que hacen parte de esa l nea productiva Es posible hacer un mix entre secci n y l nea seleccionando las dos al tiempo E Microsoft Access Parametros para Costos Requeridos 1 3 Mantenimientos Procesos X By Exportar 1 Fechas dd mm aaaa E ME Productos Terminados Procesar 30001000002 01 07 2009 01 07 2008 30001000011 Secci n 30001000021 ALIMENTO AVES 30001000055 30001000074 EE 30001000082 30001000083 30008000001 50012000001 Vi CLIENTES 3A B00100000 Inconsist L nea EXPORTACION STOCK Ver Costos PT Informe 2 24 Costos Art culos Ver informe Sin el caso grafico el programa evaluar a los costos de los art culos que est n clasificados en la secci n condimentos y la l nea especiales 47 Productos terminados despliega todos los art culos creados en la tabla art culo y se puede seleccionar uno dos o m s registros a la vez para el respectivo an lisis de costos Informe costos art culos Una de las opciones que tiene el Microsoft Office Access es la generaci n de
126. rp As Variant Const conPropNotFoundError 3270 Set dbs CurrentDb On Error GoTo Change Err dbs Properties strPropName varPropValue ChangeProperty True Change Bye Exit Function Change Err If Err 2 conPropNotFoundError Then Property not found Set prp dbs CreateProperty strPropName _ varPropType varPropValue dbs Properties Append prp Resume Next Else Unknown error ChangeProperty False Resume Change Bye End If End Function Este procedimiento deshabilita la techa Shift para evitar que el usuario abra la base de datos y tenga acceso a los objetos Sub SetBypassProperty Const DB Boolean As Long 1 ChangeProperty AllowBypassKey DB Boolean False End Sub Function Applicationl nformation Application SetOption Show Hidden Objects False CommandBars Database Visible False End Function Function RefreshLink Dim dbs As Database rst As Recordset cadSQL As String Dim tdf As TableDef i As Long cadConnect As String On Error GoTo ControlError Variant 104 cadSQL SELECT ForeignName FROM MSysObjects WHERE Type 6 IniRecordset dbs rst cadSQL rst Movelast rst MoveFirst Fori 1 To rst RecordCount Set tdf dbs TableDefs rst Fields 0 cadConnect PWD 00H5 DATABASE amp RutaDB tdf Connect cadConnect tdf RefreshLink rst MoveNext Next ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Tome nota de lo siguiente amp Er
127. s 0 rstArticulo Fields 0 rstA Fields 1 Fecha rstA Fields 2 1 rstA Update rstArticulo MoveNext Loop End If GrabaCostosM Dev ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n GrabaCostosM End Function Autor Reinel Gallego Hansson Fecha Junio 29 de 2006 Descripci n Graba la informaci n referente a Materias Primas y Maquinas en las tablas AnalisisCostUniD1 y AnalisisCostUniD2 Function IniciaGrabacionCostos ByVal Fecha Dim dbs As Database rstMP As Recordset rstMaq As Recordset cadSQL As String Dim i As Long On Error GoTo ControlError cadSQL SELECT limarticulo cotfecha cotmateriaprima mapunidadcompra limconsumo limporcentajedesperdicio cotestandar cotreal cotreposicion cotexportaci n cotsimulado arttamanolote amp FROM Articulo INNER JOIN MateriaPrima INNER JOIN ListaMateriales ON MateriaPrima mapid 2 ListaMateriales limmateriaprima ON Articulo artid ListaMateriales limarticulo INNER JOIN amp _ CostoMateriaPrima ON MateriaPrima mapid CostoMateriaPrima cotmateriaprima _ WHERE cotfecha amp Format Fecha mm dd yyyy AND limarticulo IN SELECT acuarticulo FROM AnalisisCostUniM ORDER BY limarticulo IniRst dbs rstMP cadSQL cadSQL SELECT rutid rutarticulo co
128. s 1 rst Fields 1 rstTmp Fields 2 rst Fields 2 rstTmp Update rstTmp MoveNext rst MoveNext Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n RetornaReal2Mat2 rst Close dbs Close End Function Function EliMaqSob ByVal Fecha Dim dbs As Database rst As Recordset cadSQL As String CadDel As String Dim rstRutas As Recordset rstTmp As Recordset strFiltro As String Dim strTemp As String i As Long CodPT As String CodMaq As String On Error GoTo ControlError cadSQL SELECT acud2pt acud2maq FROM AnalisisCostUniD2 WHERE acud2fecha Format Fecha mm dd yyyy amp ORDER BY acud2pt IniRecordset dbs rst cadSQL cadSQL SELECT rutart culo rutm quina FROM ruta WHERE strTemp cadSQL Do While Not rst EOF strFiltro rutart culo rst Fields O And rutm quina rst Fields 1 strTemp strTemp strFiltro IniRecordset dbs rstRutas strTemp If rstRutas EOF Then CadDel DELETE FROM AnalisisCostUniD2 WHERE acud2pt amp rst Fields 0 95 AND acud2maq rst Fields 1 AND acud2fecha amp Format Fecha mm dd yyyy xt BorraTabla CadDel End If Set rstRutas Nothing rst MoveNext strTemp cadSQL Loop rst Close dbs Close ControlError If Err Number lt gt 0 Then _ MsgBox Ha oc
129. s Close 84 End Function Autor Reinel Gallego Hansson Fecha Junio 30 de 2006 Descripci n Obtiene los costos de Estandar Real Reposici n Exportaci n y Simulado como tambien el Consumo Real Total para realizar las respectivas operaciones Function GrabaAnalisisCostos ByVal Fecha Dim dbs As Database rst As Recordset rstCosto As Recordset cadSQL As String i As Long Dim ColCosto 5 As Single CodPT As String On Error GoTo ControlError cadSQL SELECT acudlpt acudlfecha acudimp acud1UM acudlconsumo acudldesperdicio acud1CRT amp _ acud1CEUM acud1CEU acudlCEL acudltipo acudlEst acudlReal acudlRep 1 acud1Sim _ FROM AnalisisCostUniD1 WHERE acudlpt in SELECT acuart culo FROM AnalisisCostUniM amp _ WHERE acutipo True AND acudlfecha Format Fecha mm dd yyyy 3t ORDER BY acud1pt IniRecordset dbs rst cadSQL cadSQL SELECT FROM costosArt culos I niRecordset dbs rstCosto cadSQL rst Movelast rst MoveFirst CodPT rst Fields 0 Do While Not rst EOF Do While CodPT rst Fields 0 Multiplico el valor de la columna CRT por los Costos ColCosto 1 ColCosto 1 rst Fields 6 rst Fields 11 Costo Estandar ColCosto 2 ColCosto 2 rst Fields 6 rst Fields 12 Costo Real ColCosto 3 ColCosto 3 rst Fields 6 rst Fields 13 Costo Reposici n ColCosto 4 ColCosto 4 rst Fields 6 rst Fields 14 Costo Exportaci n C
130. s del mercado no han prevalecido 10 4 1 2 Sistema de Costos ABC El M todo de Costos basado en actividades ABC mide el costo y desempe o de las actividades fundamentando en el uso de recursos as como organizando las relaciones de los responsables de los Centros de Costos de las diferentes actividades El m todo ABC asigna costos a las actividades bas ndose en c mo stas usan los recursos y asigna costos a los objetos de costos de acuerdo a c mo stos hacen uso de las actividades El proceso de asignaci n de costos a actividades y objetos de costos se apoya en criterios llamados drivers generador o inductor de costos que explican la relaci n de causa y efecto entre estos elementos Por lo tanto los conceptos claves de ABC son Recursos Elementos econ micos usados o aplicados en la realizaci n de actividades Se reflejan en la contabilidad de las empresas a trav s de conceptos de gastos y costos como sueldos beneficios depreciaci n electricidad publicidad comisiones materiales etc Actividades Conjunto de tareas relacionadas que tengan un sentido econ mico relevante para el negocio Por ejemplo preparar plan anual facturar vender atender clientes Saber distinguir hasta qu nivel llegar en el detalle de las actividades es un elemento cr tico en un proyecto ABC y la experiencia es el principal fundamento de este proceso Objetos de Costos Es la raz n para realizar una actividad Incluye
131. s el valor de los productos o servicios que se venden a los clientes La determinaci n de este valor es una de las decisiones estrat gicas m s importantes ya que el precio es uno de los elementos que los consumidores tienen en cuenta a la hora de comprar lo que necesitan El cliente estar dispuesto a pagar por los bienes y servicios lo que considera un precio justo es decir aquel que sea equivalente al nivel de satisfacci n de sus necesidades o deseos con la compra de dichos bienes servicios Por otro lado la empresa espera a trav s del precio cubrir los costos y obtener ganancias En la determinaci n del precio es necesario tomar en cuenta los objetivos de la empresa y la expectativa del cliente El precio de venta es igual al costo total del producto m s la ganancia Precio de Venta Costo Total unitario Utilidad 20 4 2 ADMINISTRACI N DE BASES DE DATOS Charles se ala que una base de datos es un conjunto completo de datos o hechos no procesados que representa los recursos de informaci n de una organizaci n Al igual que a otros recursos tales como a la planta al equipo y al personal es necesario administrar y dar mantenimiento a los recursos de la informaci n si es que se desea proporcionar un apoyo operacional eficiente Los elementos de la administraci n de una base de datos incluyen el reconocimiento de los problemas de la administraci n de los datos el dise o de las actividades que conducen a
132. s para la elaboraci n del producto se constituye en un elemento eficiente y til para la toma acertada de decisiones para la compa a 59 6 CONCLUSIONES Antiguamente los sistemas de costeo se limitaban a acumular datos para costear los productos elaborados e incorporarlos en informes de la contabilidad financiera Sin embargo el desarrollo de las industrias dado los adelantos tecnol gicos introducidos por la globalizaci n y la competitividad ha hecho que las compa as reconsideren analicen y examinen su sistema de costos Las empresas tienen objetivos como el crecimiento la estabilidad y la obtenci n de utilidades para el alcance de stos los directivos deben realizar una distribuci n adecuada de sus recursos basados en buena medida en la informaci n que tienen sobre sus costos el an lisis de estos se constituyen en una base fundamental para la toma de decisiones Por esto es importante que las organizaciones PYMES busquen herramientas tecnol gicas de informaci n que realicen procesos eficientes para el costeo del producto y as pueden obtener datos acertados con los cuales la gerencia puede tomar decisiones estrat gicas determinando un precio de venta que le permitan obtener una ventaja competitiva Dado lo anterior el Costo toma una importancia relevante ya que a trav s de l se pueden determinar precios adecuados conocer qu bienes o servicios producen utilidades o p rdidas si hacer o compr
133. s que permitan conocer lo que cuesta producir y analizar peri dicamente los resultados obtenidos para determinar los factores que est n incidiendo en los mismos a fin de tomar las decisiones que correspondan Para lograr este objetivo se requiere de un estilo de direcci n que exija registrar los costos con una base metodol gica y de control adecuado mediante mecanismos giles con altos grados de confiabilidad lo cual hace necesaria la implementaci n de un sistema de costos con el cual se puedan tomar decisiones acertadas que conlleven al cumplimiento de los objetivos de la organizaci n 2 JUSTIFICACI N Este modelo podr ser aplicado en organizaciones del sector manufacturero y de este modo subsanar todos los inconvenientes presentes en el momento de costear y definir el precio de un producto determinado Contando con esta herramienta las empresas podr n beneficiarse en los siguientes aspectos Poseer un programa eficiente y eficaz para el c lculo de los costos de los productos en diferentes ambientes productivos Administraci n efectiva de los datos incrementando la productividad al disminuir el tiempo requerido para producir los resultados de los an lisis e incrementar la confianza asociada con tales resultados Decisiones acertadas en la definici n de precios de los productos alcanzando mayor competitividad en el mercado Optimizaci n de los procesos productivos de la compa a evaluando las mejor
134. scripci n Err Description _ amp en el m dulo de Costos en la funci n IniciaGrabacionCostos rstMP Close rstMaq Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Junio 29 de 2006 Descripci n Graba la informaci n referente a la Materia Prima en AnalisisCostUniD1 Function GrabaCostosMP rstM As Recordset ByVal Tipo As String ByVal Fecha Dim dbs As Database rst As Recordset cadSQL As String Lista As String Dim Costo As Single CRT As Single On Error GoTo ControlError cadSQL SELECT acudlpt acudlfecha acudimp acud1UM acudlconsumo 74 acud1desperdicio acud1CRT acud1CEUM acudiCEU acud1CEL acudltipo acudlEst acudlReal _ acud1Rep acudlExp acud1Sim FROM AnalisisCostUniD1 IniRecordset dbs rst cadSQL Do While Not rstM EOF rst AddNew rst Fields 0 rstM Fields 0 rst Fields 1 2 Fecha rst Fields 2 2 rstM Fields 2 Codigo MP rst Fields 3 2 rstM Fields 3 Unidad de compra rst Fields 4 2 rstM Fields 4 Consumo rst Fields 5 2 rstM Fields 5 Porcentaje de desperdicio CRT rstM Fields 4 1 rstM Fields 5 Consumo Real Total Costo rstM Fields 6 Costo Estandar rst Fields 6 2 CRT rst Fields 7 2 Costo Costo Estd Unit Material rst Fields 8 2 CRT Costo Costo Estandar Unidad rst Fields 9 2 rstM Fields 11 CRT Costo Costo Estandar Lote rst Fields 10 Tipo rst Fields 11 rstM Fields 6 Columna cost estandar rst Fields 12
135. stCostos Edit rstCostos Fields 2 rstCostos Fields 2 Total Estandar rstCostos Fields 3 rstCostos Fields 3 Total Reall rstCostos Fields 4 rstCostos Fields 4 Total Reposici n rstCostos Fields 5 rstCostos Fields 5 Total Exportaci n rstCostos Fields 6 rstCostos Fields 6 Total Simulado rstCostos Update rstCostos MoveNext If rstCostos EOF Then Exit Do Total 2 0 If Not rst EOF Then CodPT rst Fields 0 Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n GrabaAnalisisCostMaq rst Close rstCostos Close dbs Close End Function Autor Reinel Gallego Hansson 87 Fecha Julio 02 de 2006 Descripci n Si el costo Real 2 del actual periodo esta null o cero busca en los anteriores periodos hasta encontrar un valor Function BuscaCostoReal2 ByVal CodPT As Long Dim dbs As Database rst As Recordset cadSQL As String i As Long Dim Valores As Single Fechas Regs As Long On Error GoTo ControlError cadSQL SELECT Codigo pt copt fecha copt real2 copt periodo FROM costospt amp _ WHERE Codigo pt amp CodPT ORDER BY copt fecha DESC IniRecordset dbs rst cadSQL If Not rst EOF Then rst MoveLast rst MoveFirst Regs rst RecordCount ReDim Valores Regs ReDim Fechas Regs Si el campo tiene algun valor evalua el sigui
136. stos Este modulo tiene guarda el c digo central de la aplicaci n El cual ejecuta todos los procesos que tienen que ver con la parte de costos de los materiales Autor Reinel Gallego Hansson Fecha Junio 25 de 2006 Verifica que las tablas Costosmaquinas y CostoMateriaPrima coincidan con la fecha a procesar Function VerificaFechaCostos ByVal Fecha As Boolean Dim dbs As Database rstMaq As Recordset rstCostos As Recordset Dim Dev As Boolean Dev False On Error GoTo ControlError verifica que la fecha exista en las tablas Costosmaquina y CostoMateriaPrima If TieneDatos rstMaq SELECT comfecha FROM CostoMaquina WHERE comfecha amp Format Fecha mm dd yyyy Then MsgBox No existe esta fecha en la tabla Costosmaquinas No se iniciar el proceso Verificar fechas Dev True Elself TieneDatos rstCostos SELECT cotfecha FROM CostoMateriaPrima WHERE cotfecha Format Fecha mm dd yyyy Then MsgBox No existe esta fecha en la tabla costos Materia Prima No se iniciar el proceso Verificar fechas Dev True End If VerificaFechaCostos Dev ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n VerificaFechaCostos End Function Autor Reinel Gallego Hansson Fecha Junio 25 de 2006 Inicia el proceso de Costos donde verifica que
137. tMP MoveFirst Fori 1 To rstMP RecordCount Forj22To6 rstHist AddNew rstHist Fields 0 rstMP Fields 0 rstHist Fields 1 rstMP Fields 1 Select Case j Case 2 rstHist Fields 2 E Costo Est ndar rstHist Fields 3 2 rstMP Fields j Case 3 rstHist Fields 2 R Costo Real rstHist Fields 3 2 rstMP Fields j Case 4 rstHist Fields 2 rstHist Fields 3 Case 5 rstHist Fields 2 rstHist Fields 3 Case 6 rstHist Fields 2 rstHist Fields 3 End Select rstHist Update Next rstMP MoveNext Next P Costo Reposici n rstMP Fields j X Costo Exportaci n rstMP Fields j S Costo Simulado rstMP Fields j ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n GrabaCostosPT rstMP Close rstHist Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Julio 05 de 2006 Descripci n Toma toda la informaci n de Costosmp agrupada y la graba en historicomp Function LlenaHistoricoPT Dim dbs As Database rstPT As Recordset rstHist As Recordset cadSQL As String Dim i As Long j As Long On Error GoTo ControlError Antes de iniciar el proceso borra los datos de Historicopt BorraTabla DELETE FROM historicopt cadSQL SELECT Codigo pt copt_fecha copt_estandar copt_reall copt_real2 amp copt reposicion copt exportacion
138. taci n es requerido diariamente en todos los niveles pero hay un inter s creciente por presentar los datos num ricos en una forma grafica De acuerdo a lo anteriormente descrito es necesario contar con un software que proporcione un apoyo operacional eficiente y facilite un soporte automatizado en la administraci n de los datos 26 4 2 3 Microsoft Office Access La Microsoft Corporation provee una herramienta que permite introducir y almacenar informaci n de forma casi ilimitada organizarla de forma pareja al sistema de trabajo as como recuperar informaci n bas ndose en un criterio espec fico Por medio de Microsoft Office Access se puede administrar toda la informaci n desde un nico archivo de base de datos teniendo en cuenta que nos suministra e Tablas para almacenar los datos e Consultas para buscar y recuperar nicamente los datos que necesita e Formularios para ver agregar y actualizar los datos de las tablas e Informes para analizar o imprimir los datos con un dise o espec fico e P ginas de acceso a datos para ver actualizar o analizar los datos de la base de datos desde Internet e Almacenar los datos una vez en una tabla y verlos desde varios lugares Toda la informaci n presente en una organizaci n con respecto a la elaboraci n de un producto o servicio materias primas m quinas instalaciones mano de obra tiempos de ejecuci n consumos entre muchos otros y toda la informaci n refe
139. talmente depreciadas a excepci n de la MAQUINA AUTOMATICA Valor de la m quina 51 000 000 Vida Util 20 a os De acuerdo con los datos anteriormente referenciados tenemos Horas Presupuestas Vida Util Maquina m Horas presupestadas Horas presupuestas Horas presupuestas Horas presupuestas C digo dM Ee diarias mes a o vida util maquina x20 AUTO01 MAQUINA AUTOMATICA 4 800 96 000 43 Finalmente la tarifa Hora por depreciaci n de la M quina Autom tica ser a Depreciaci n Valor Maquina D Valor Maquina 51 000 000 _ 531 25 Hr Horas presupuestas vida util _ 96 000 Tarifas de CIF Para efectos de nuestro an lisis hemos identificado y agrupado los CIF como se describir a continuaci n teniendo en cuenta que las horas de m quina presupuestadas para un mes son de 940 ver cuadro horas presupuestadas Mes x M quina DOS Tarifa Maquina Descripci n Costo mes Disponibles q hr Mes Hr Costo de Nomina Indirecta personal de oficina vigilancia punto de 30 000 000 30 000 000 orruos FIJOS 319149 venta despachos vendedores mercaderistas aseo etc Costo alquiler del edificio 1 300 000 CIF FIJOS 940 1 383 0 TOTALCIFFIJOS 33 297 9 Costo de Servicios agua energia gas tel fono 2 050 000 CIF VAR 940 2 180 9 Gastos de Impuestos 2 000 000 CIF VAR 2 127 7 TOTAL CIF VARIABLES 4 308 5 Costos de distribuci n fletes 4 800 000 DISTRIBUC
140. tes costos calculados por art culo bas ndose en el criterio del costo de la materia prima inicialmente definido Con esta informaci n los directivos pueden detectar cual es el costo que m s le conviene a la compa a Es importante analizar en el cuadro de Consolidado x Unid Almacenamiento An lisis Final de Costos el porcentaje con que participa cada uno de los costos ya que este le indica a la compa a si los rubros est n acordes o se encuentran elevados Pudiendo tomar medidas que beneficien a la empresa 62 BIBLIOGRAF A BACKER Morton y JACOBSEN Lyle Contabilidad de costos Un enfoque administrativo para la toma de decisiones 2 ed M xico McGraw Hill 1988 743 p BILLENE Ricardo A An lisis de Costos Un enfoque conceptual para el an lisis y control de costos Ediciones Jur dicas Cuyo 1999 Cap tulo 2 y Cap tulo 4 Del R o Gonz lez Crist bal Costos 11 Predeterminados de Operaci n y de Producci n en com n o Conjunta Editorial ECAFSA 1998 Capitulo Del R o Gonz lez Crist bal Costos Ill M xico Editorial ECAFSA 2000 Hicks Douglas T El sistema de costos basado en las actividades ABC 1 edici n Mexico Editorial Alfaomega Grupo Editor S A 1998 112p BOTTARO Oscar E RODRIGUEZ Hugo y YARDIN Amaro El Comportamiento de los costos y la gesti n de la empresa 1 edici n Buenos Aires Editorial La Ley 2003 Capitulo 1 11 a 27 p VAZQUEZ Juan Carlos Costos 2 edic
141. trazna 006 0 00076655 100 o2 006 A B AxB Que son finalmente las cantidades diligenciadas en la tabla Por pol tica de la compa a los materiales de empaque tienen un 3 de desperdicio y las materias primas 10 35 El formulario usado para el diligenciamiento de la informaci n en la tabla de las listas de materiales es Microsoft Access Articulos ntenimientos Procesos C digo Cliente STOCK Unidad El Und x Und almac n gt Linea sTOCK Pesoneto 125 Peso bruto Ancho Largo C g Alto Volumen Ly Densidad L 9 rea L 9 Color NARANJA Tama o lote A DIMENTOS Costos culo Lista Materiales Ruta H med E Materia prima Fecha Consuma x Desp NM ias ACHIOTE ENTERO 2370972009 10007 APRA Esee ARA Ms o9 09 2003 0 09 _ 10 00 Tabla 8 Rutas de Producci n Se relacionan los c digos de las posibles rutas de producci n los c digos de las m quinas que intervienen en la elaboraci n de un art culo especificando tiempos de alistamiento horas y productividad o ejecuci n piezas hora Vale aclarar que el modelo est dise ado para evaluar costear todas las posibles rutas que pueda tener un producto teniendo en cuenta que puedo tener m quinas que ejecuten las mismas tareas pero sus tarifas rendimientos sean diferentes 36 E Microsoft Access Ruta
142. urrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n EliminaMaqSob End Function Sub EliTablasCostos Dim cadSQL As String cadSQL DELETE FROM AnalisisCostUniD1 BorraTabla cadSQL cadSQL DELETE FROM AnalisisCostUniD2 BorraTabla cadSQL cadSQL DELETE FROM AnalisisCostUniM BorraTabla cadSQL cadSQL DELETE FROM costosArt culos BorraTabla cadSQL cadSQL DELETE FROM RepCostos BorraTabla cadSQL End Sub Function VerificaDatosFinales ByVal Fecha Dim dbs As Database rst As Recordset cadSQL As String CadDel As String Dim rstRutas As Recordset rstTmp As Recordset strFiltro As String Dim strTemp As String i As Long CodPT As String CodMaq As String On Error GoTo ControlError cadSQL SELECT acuart culo FROM AnalisisCostUniM amp WHERE acuart culo Not In select acud1pt from AnalisisCostUniD1 IniRecordset dbs rst cadSQL Do While Not rst EOF InsertaDatos INSERT INTO RepCostos rcpt rcfecha rcdescripcion VALUES amp 96 i amp rst Fields 0 Format Fecha mm dd yyyy 3t Verificar Materia Prima Si tiene m quinas las borra cadSQL DELETE FROM AnalisisCostUniD2 WHERE acud2pt rst Fields 0 BorraTabla cadSQL Depu s de borrar m quinas borra Maestra de Analisis Costos cadSQL DELETE FROM AnalisisCostUniM WHERE acuart culo rst Fields 0
143. veNext If rstCostos EOF Then Exit Do Total 2 0 If Not rst EOF Then CodPT rst Fields 0 Loop ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n Err Description _ amp en el m dulo de Costos en la funci n GrabaAnalisisCostMaq rst Close rstCostos Close dbs Close End Function Autor Reinel Gallego Hansson Fecha Julio 02 de 2006 Descripci n Si el costo Real 2 del actual periodo esta null o cero busca en los anteriores periodos hasta encontrar un valor Function BuscaCostoReal2 ByVal CodPT As Long Dim dbs As Database rst As Recordset cadSQL As String i As Long Dim Valores As Single Fechas Regs As Long On Error GoTo ControlError cadSQL SELECT Codigo pt copt fecha copt real2 copt periodo FROM costospt amp WHERE Codigo pt amp CodPT ORDER BY copt fecha DESC IniRecordset dbs rst cadSQL If Not rst EOF Then rst MoveLast rst MoveFirst Regs rst RecordCount ReDim Valores Regs ReDim Fechas Regs Si el campo tiene algun valor evalua el siguiente registro If IsNull rst Fields 2 Or rst Fields 2 O Then Fori 2 1 To Regs If IsNull rst Fields 2 Then Valores i 0 Else Valores i rst Fields 2 Fechas i rst Fields 1 End If rst MoveNext Next End If End If Fori 2 2 To Regs If Valores i lt gt 0 Then rst MoveFirst rst Edit rst Fields 2 Valores i rst Fields 3
144. xiste la crea 102 Function AddTolNl sSection As String sKey As String sValue As String slniFile As String As Boolean Dim IRet As Long Llama a la DLL IRet WritePrivateProfileString sSection sKey sValue slniFile AddToINI IRet End Function Sub OpenFile Dim Valor As String On Error GoTo ControlError GetFroml General Opcion AddToINI General Opcion 3 E XReinelProdispelAdco ini ControlError If Err Number lt gt 0 Then _ MsgBox Ha ocurrido el error amp Err Number _ amp Descripci n amp Err Description _ amp en el m dulo de Principal en la funci n TieneDatos End Sub Function SetPathApp RutaApp RutaFotos End Function Start En este modulo se encuentran las funciones de incializaci n de la aplicaci n y seguridad Option Compare Database Option Explicit Esta funci n tiene como objetivo establecer valores iniciales de la aplicaci n Function StartApp Inhabilita la tecla Shitf SetBypassProperty Oculta los objetos Applicationl nformation Establece los valores para las rutas SetPath Actualiza la conexi n a las tablas si se ha cambiado de directoria RefreshLink 103 End Function Inhabilita la tecla Shift Function ChangeProperty strPropName As String As varPropValue As Variant As Integer Dim dbs As Object p

Ícono - Biblioteca Digital Universidad del Valle

Contents

Download Pdf Manuals

Related Search

Related Contents

&Iacute;cono - Biblioteca Digital Universidad del Valle

Contents

Download Pdf Manuals

Related Search

Related Contents

Ícono - Biblioteca Digital Universidad del Valle