tag:blogger.com,1999:blog-6813104246608010108.post8542086842632896699..comments2024-03-01T08:58:59.729-08:00Comments on Interfaces de registros contables masivos con VBA Excel + SQL: Ejemplo: Libro Mayor en Excel desde el CONCAR mediante SQL y MacrosAbraham Ramírezhttp://www.blogger.com/profile/12596964427991739363noreply@blogger.comBlogger16125tag:blogger.com,1999:blog-6813104246608010108.post-3236266382009788242013-11-14T15:03:36.580-08:002013-11-14T15:03:36.580-08:00Este comentario ha sido eliminado por un administrador del blog.Concar2020https://www.blogger.com/profile/09368680217004474602noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-56860171743414159972013-01-09T14:50:40.009-08:002013-01-09T14:50:40.009-08:00Hola Ricardo, si se
Las tablas principales son:
...Hola Ricardo, si se<br /><br />Las tablas principales son:<br /><br />ALMOVC<br />ALMOVD<br />ALSTOC<br /><br />Para la versión CodeBase<br /><br />Que versión tienes tú? Igual también migro a la versión SQL<br /><br />Saludos,<br />AbrahamAbraham Ramírezhttps://www.blogger.com/profile/12596964427991739363noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-54067088694515185672013-01-02T14:00:25.090-08:002013-01-02T14:00:25.090-08:00Hola abraham una consulta tu sabes como hacer el i...Hola abraham una consulta tu sabes como hacer el interface a programa de almacen del concar "SISALM"Anonymoushttps://www.blogger.com/profile/14757156792566198774noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-91930616386154131602012-12-27T05:10:03.067-08:002012-12-27T05:10:03.067-08:00hola abraham, termina el aplicativo de detraccione...hola abraham, termina el aplicativo de detracciones, porque es uno de los aplicativos que nos servira a todos <br /><br />saludosBlog De Moda Carleyhttps://www.blogger.com/profile/11873256752626720716noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-53314073698284015752012-12-13T06:58:59.943-08:002012-12-13T06:58:59.943-08:00Hola! Por favor, lee bien la entrada (De principio...Hola! Por favor, lee bien la entrada (De principio a fin)<br /><br /> Do While Not rs.EOF<br /> Soles = Format(rs!['SALDO MN'].Value, "#,##0.00")<br /> Dolares = Format(rs!['SALDO US'].Value, "#,##0.00")<br /> Sheets("MAYOR").cbo_Cta.AddItem rs![DCUENTA].Value & " " & rs![PDESCRI].Value & " S/. " & Soles & " US$ " & Dolares<br /> rs.MoveNext<br /> Loop<br /><br />Saludos,<br />AbrahamAbraham Ramírezhttps://www.blogger.com/profile/12596964427991739363noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-15981548616693643882012-12-13T05:16:06.140-08:002012-12-13T05:16:06.140-08:00espero tu pronta respuesta espero tu pronta respuesta Blog De Moda Carleyhttps://www.blogger.com/profile/11873256752626720716noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-15080598599141781182012-12-13T05:12:29.309-08:002012-12-13T05:12:29.309-08:00hola abraham no has ingresado el codigo del combo ...hola abraham no has ingresado el codigo del combo donde va las cuentas a filtrar ,COMBO_CTA falta que lo agregues sino como lo usamosBlog De Moda Carleyhttps://www.blogger.com/profile/11873256752626720716noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-61843141218526277892012-12-04T11:21:44.185-08:002012-12-04T11:21:44.185-08:00Hola Abrahan, muy agradecido por tu aporte,pero ot...Hola Abrahan, muy agradecido por tu aporte,pero otra consulta, en el concar agregue unas cuentas contables, pero cuando habro el excel no me aparece lo reciente del plan de cuentas.Anonymoushttps://www.blogger.com/profile/14757156792566198774noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-37530649704890631672012-11-05T13:39:11.234-08:002012-11-05T13:39:11.234-08:00Hola Gustavo!
Ya no hemos comunicado por mensaje ...Hola Gustavo!<br /><br />Ya no hemos comunicado por mensaje privado.<br /><br />Solo para formalizar, excelente tu web!<br /><br />Más adelante publicaré un formulario que utiliza la consulta de RUC desde MS Excel publicado en tu web: http://excelnegocios.com/tag/buscar-ruc-sunat-desde-excel/ <br /><br />Saludos,<br />AbrahamAbraham Ramírezhttps://www.blogger.com/profile/12596964427991739363noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-70515759466183188632012-11-05T13:32:38.468-08:002012-11-05T13:32:38.468-08:00Hola Ricardo!
Me comentas como te fue...ahi va la...Hola Ricardo!<br /><br />Me comentas como te fue...ahi va la respuesta.<br /><br />Suerte!<br />Abraham<br /><br />En atención a tu consulta, sigue estos pasos:<br /><br />1. En la Hoja Excel agrega la columna para el Nombre / Razón Social (Asegurate que sea la columna H)<br /><br />2. Efectivamente, la tabla CAN almacena los anexos, sin embargo el correlativo CAN01, CAN02, etc depende de la configuración den el CONCAR menú Utilitarios / Mantenimiento Compañias (Tabla CT_CIAS)<br /><br />3. Por último, la consulta SQL ahora debera tener 3 relaciones, El Diario con el Plan de Cuentas, El diario con los Anexos y el Plan de Cuentas con los Anexos<br /><br />Todo lo mencionado se encuentra en estas sentencias modificadas (Evento Click del botón Ejecutar)<br /><br />Private Sub cmd_Mayor_Click()<br /> If Sheets("MAYOR").cbo_Empresa <> "" And Sheets("MAYOR").cbo_Año <> "" And Sheets("MAYOR").xls_Ctas.Cells(Sheets("MAYOR").xls_Ctas.ActiveCell.Row, 1) <> "" And Sheets("MAYOR").xls_Ctas.ActiveCell.Row > 1 Then<br /> Range("A13:IV65536").ClearContents<br /> If ActiveSheet.AutoFilterMode = True Then<br /> Range("A4").AutoFilter<br /> End If<br /> Set con = CreateObject("adodb.connection")<br /> Set rs = CreateObject("adodb.recordset")<br /> con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=W:\REAL\Concar80;Extended Properties = dBase 5.0;"<br /> rs.Open "SELECT CT_FILE FROM CTCIAS WHERE CT_NOMBRE = '" & Right(Sheets("MAYOR").cbo_Empresa, Len(Sheets("MAYOR").cbo_Empresa) - 3) & "'", con<br /> Plan_de_Cuentas = Right(rs![CT_FILE], 2)<br /> Anexo = Right(rs![CT_FILE], 2)<br /> rs.Close<br /> Correlativo = Left(Sheets("MAYOR").cbo_Empresa, 2) & Sheets("MAYOR").cbo_Año<br /> rs.Open "SELECT DSUBDIA, DCOMPRO, DSECUE, DFECCOM2, DCUENTA, CPL" & Plan_de_Cuentas & ".PDESCRI, DCODANE, CAN" & Anexo & ".ADESANE, DCENCOS, DCODMON, DTIPDOC, DNUMDOC, DXGLOSA, IIF(CCD" & Correlativo & ".DDH='D',CCD" & Correlativo & ".DMNIMPOR,-CCD" & Correlativo & ".DMNIMPOR) AS 'SALDO MN', IIF(CCD" & Correlativo & ".DDH='D',CCD" & Correlativo & ".DUSIMPOR,-CCD" & Correlativo & ".DUSIMPOR) AS 'SALDO US', (YEAR(CCD" & Correlativo & ".DFECCOM2) & '-' & FORMAT(MONTH(CCD" & Correlativo & ".DFECCOM2),'00')) AS 'PERIODO' FROM CCD" & Correlativo & ", CPL" & Plan_de_Cuentas & ", CAN" & Anexo & " WHERE CCD" & Correlativo & ".DCUENTA = CPL" & Plan_de_Cuentas & ".PCUENTA AND CCD" & Correlativo & ".DCODANE = CAN" & Anexo & ".ACODANE AND CAN" & Anexo & ".AVANEXO = CPL" & Plan_de_Cuentas & ".PVANEXO AND DCUENTA = '" & Sheets("MAYOR").xls_Ctas.Cells(Sheets("MAYOR").xls_Ctas.ActiveCell.Row, 1) & "'", con<br /> Range("A13").CopyFromRecordset rs<br /> Set rs = Nothing<br /> Set con = Nothing<br /> Cells.Columns.AutoFit<br /> Range("F1").ColumnWidth = 28<br /> Range("A13").Select<br /> Else<br /> MsgBox "Complete los datos y Ejecute", vbInformation<br /> End If<br />End SubAbraham Ramírezhttps://www.blogger.com/profile/12596964427991739363noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-34744955670504695342012-11-05T11:51:31.016-08:002012-11-05T11:51:31.016-08:00Hola Abraham,muy agradecido por tu ejemplo que sir...Hola Abraham,muy agradecido por tu ejemplo que sirve de mucha ayuda para los que usamos el concar, segun el link<br /><br />http://interfacescontablesvbaexcel.blogspot.com/2012/05/ejemplo-libro-mayor-en-excel-desde-el.html<br /><br /> <br />Aunque al excel le faltaria la descripcion de la razon social de acuerdo a cada RUC que eso se encuentra en el archivo CAN*. con ruta C:\Real\Concar80.<br />Por favor podrias ayudarme en agregar esa columna falante.<br />Gracias de antemano.Anonymoushttps://www.blogger.com/profile/14757156792566198774noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-41059053129894494732012-10-22T08:39:45.767-07:002012-10-22T08:39:45.767-07:00Te saluda Gustavo A. Sebastiani Cépeda del portal ...Te saluda Gustavo A. Sebastiani Cépeda del portal de Excel para Contadores: www.excelnegocios.com<br /><br />Excelente web! felicitaciones, siempre revisare este espacio, y compartire tus trabajos.<br /><br />Si deseas puedes hacer lo mismo y si necesitas posicionarte más podriamos intercambiar enlaces.<br /><br />Cualquier contacto puedes hacerlo a: excelparacontadores@hotmail.comSebastianihttps://www.blogger.com/profile/02475067076934860422noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-45909964118213219992012-07-30T10:57:56.954-07:002012-07-30T10:57:56.954-07:00Hola Francisco,
Disculpa la demora en responder, ...Hola Francisco,<br /><br />Disculpa la demora en responder, hoy regrese de vacaciones.<br /><br />Yo utilizo dos formas para migrar registros al Concar:<br /><br />1. Creo una plantilla dbf y la cargo a través de: Utilitarios / Movimientos de Datos / Carga de Comprobantes<br /><br />2. Mediante la sentencia Insert de SQL, luego Utilitarios / Reindexar Movimientos (Para Dbase)<br /><br />De una u otra manera para poder darte mayor detalle escribeme en privado a: abraham_ramirez_v@yahoo.es<br /><br />Saludos,<br />AbrahamAbraham Ramírezhttps://www.blogger.com/profile/12596964427991739363noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-66039792859827618412012-07-19T21:04:07.000-07:002012-07-19T21:04:07.000-07:00Estimado Abraham, no tendras algun ejemplo con mac...Estimado Abraham, no tendras algun ejemplo con macros para exportar informacion del excel al concar, tengo informacion de un sistema contable que quisiera pasar al concar, agradeceria mucho tu ayuda.Francisco Diaz Taboadahttps://www.blogger.com/profile/08518006459132581399noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-19707412957058936322012-06-07T14:32:25.632-07:002012-06-07T14:32:25.632-07:00Hola Francisco
Seguire publicando en la medida de...Hola Francisco<br /><br />Seguire publicando en la medida del tiempo disponible, en particular tengo como objetivo diseñar este blog a 2 años, asi es que recien esta naciendo.<br /><br />Por lo pronto acabo de publicar algo rápido que adapte de la red: Registro masivo de tareas en Outlook desde Excel con VBA<br /><br />Espero y sirva a quien intente usarlo<br /><br />Suerte!Abraham Ramírezhttps://www.blogger.com/profile/12596964427991739363noreply@blogger.comtag:blogger.com,1999:blog-6813104246608010108.post-21102540770960757792012-06-03T20:33:13.227-07:002012-06-03T20:33:13.227-07:00Este comentario ha sido eliminado por el autor.Francisco Diaz Taboadahttps://www.blogger.com/profile/08518006459132581399noreply@blogger.com