AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Entradas salidas

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-01-27 18:06:28 -07:00
parent 9efb6e6058
commit 6912e4ca69
2 changed files with 1374 additions and 1368 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
Compras/Compras.aspx.vb
View File

@@ -2164,7 +2164,7 @@ Partial Class Compras_Compras
If Msg <> "" Then If Msg <> "" Then
Alert($"<b>El comprobante XML presenta las siguientes inconsistencias:</b> <br><br> {Msg}", TipoMensaje.MsgAdvertencia) Alert($"<b>El comprobante XML presenta las siguientes inconsistencias:</b> <br><br> {Msg}", TipoMensaje.MsgAdvertencia)
Tab.ActiveTabIndex = 0 TAB.ActiveTabIndex = 0
''''BLOQUEA ACCIONES'''' ''''BLOQUEA ACCIONES''''
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
@@ -2839,7 +2839,7 @@ Partial Class Compras_Compras
'BLOQUEA OC 'BLOQUEA OC
TxtOC.Enabled = False TxtOC.Enabled = False
ImgBtnBuscarOC.Visible = False ImgBtnBuscarOC.Visible = False
Tab.ActiveTabIndex = 0 TAB.ActiveTabIndex = 0
GvAnticiposSel.DataSource = dtnc GvAnticiposSel.DataSource = dtnc
GvAnticiposSel.DataBind() GvAnticiposSel.DataBind()
@@ -6634,24 +6634,24 @@ Partial Class Compras_Compras
If CveTipoConcepto = 2 Then CveConceptoComplementario = 310 If CveTipoConcepto = 2 Then CveConceptoComplementario = 310
If tipoCambioActual = 1 Then If tipoCambioActual = 1 Then
IdCtaContable = CtaProveedor IdCtaContable = CtaProveedor
CveCuenta = CveCuentaProveedor CveCuenta = CveCuentaProveedor
Else Else
IdCtaContable = CtaProveedorComplementaria IdCtaContable = CtaProveedorComplementaria
CveCuenta = CveCuentaProveedorComplementaria CveCuenta = CveCuentaProveedorComplementaria
If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
importeMN = importeMovimiento importeMN = importeMovimiento
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoComplementario, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoComplementario, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
End If End If
IdCtaContable = CtaProveedorExtranjera IdCtaContable = CtaProveedorExtranjera
CveCuenta = CveCuentaProveedorExtranjera CveCuenta = CveCuentaProveedorExtranjera
End If
End If End If
End If
Case 59 'Documentos Case 59 'Documentos
importeMovimiento = importeCreditos importeMovimiento = importeCreditos
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMN = importeMovimiento * tipoCambioActual * Multiplicador
If ObjConta.GetRetCuenta(ConceptoContable, CveProveedor) Then If ObjConta.GetRetCuenta(ConceptoContable, CveProveedor) Then
@@ -8839,13 +8839,19 @@ Partial Class Compras_Compras
If IVACompleto = False AndAlso UsuarioActual.Empresa.Funcionalidad(521) = "1" Then If IVACompleto = False AndAlso UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
If sumaAmortizacionCompleto = CompraSaldo Then If sumaAmortizacionCompleto = CompraSaldo Then
Dim PorcentajeImpuesto As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal Dim PorcentajeImpuesto As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, True, TxtIVA.Text.ToDecimal, "", 14, "", Fecha, IdCtaIVAXAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
ErrorMovtosCxP = 1
If TxtIVA.Text.ToDecimal > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, True, TxtIVA.Text.ToDecimal, "", 14, "", Fecha, IdCtaIVAXAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
ErrorMovtosCxP = 1
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, False, TxtIVA.Text.ToDecimal, "", 19, "", Fecha, IdCtaIVAAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
ErrorMovtosCxP = 1
End If
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, False, TxtIVA.Text.ToDecimal, "", 19, "", Fecha, IdCtaIVAAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
ErrorMovtosCxP = 1
End If
End If End If
End If End If
@@ -11634,7 +11640,7 @@ Partial Class Compras_Compras
#Region "TAB - ACTIVOS FIJOS -AF" #Region "TAB - ACTIVOS FIJOS -AF"
Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs) Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs)
Tab.ActiveTabIndex = 3 TAB.ActiveTabIndex = 3
If GvAFInsumos.Rows.Count > 0 Then If GvAFInsumos.Rows.Count > 0 Then
llenaDtsAF() llenaDtsAF()
@@ -13706,7 +13712,7 @@ Partial Class Compras_Compras
UpFacturar.Update() UpFacturar.Update()
TabGenerales.Enabled = True TabGenerales.Enabled = True
Tab.ActiveTabIndex = 0 TAB.ActiveTabIndex = 0
UpTabs.Update() UpTabs.Update()
ImgClasificacion.Visible = False ImgClasificacion.Visible = False
@@ -14435,7 +14441,7 @@ Partial Class Compras_Compras
'SI NO ES UNA COMPRA REGISTRADA = ENABLE FALSE TAB GENERALES, ACTIVE TAB OC 'SI NO ES UNA COMPRA REGISTRADA = ENABLE FALSE TAB GENERALES, ACTIVE TAB OC
If Not CveCompra > 0 Then If Not CveCompra > 0 Then
TabGenerales.Enabled = False TabGenerales.Enabled = False
Tab.ActiveTabIndex = 2 TAB.ActiveTabIndex = 2
UpTabs.Update() UpTabs.Update()
End If End If
@@ -14995,7 +15001,7 @@ Partial Class Compras_Compras
UpFacturar.Update() UpFacturar.Update()
TabGenerales.Enabled = True TabGenerales.Enabled = True
Tab.ActiveTabIndex = 0 TAB.ActiveTabIndex = 0
UpTabs.Update() UpTabs.Update()
@@ -15098,7 +15104,7 @@ Partial Class Compras_Compras
UpFacturar.Update() UpFacturar.Update()
TabGenerales.Enabled = True TabGenerales.Enabled = True
Tab.ActiveTabIndex = 0 TAB.ActiveTabIndex = 0
UpTabs.Update() UpTabs.Update()
ImgClasificacion.Visible = False ImgClasificacion.Visible = False

52
Empresas/Grales/Formatos/EntradaSalida.rdlc
View File

@@ -21,7 +21,7 @@
<Width>1.89819cm</Width> <Width>1.89819cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.87391cm</Width> <Width>1.57864cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -320,7 +320,7 @@
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
<TextAlign>Left</TextAlign> <TextAlign>Right</TextAlign>
</Style> </Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
@@ -522,9 +522,9 @@
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DsInventarios</DataSetName> <DataSetName>DsInventarios</DataSetName>
<Top>0.17639cm</Top> <Top>0.17639cm</Top>
<Left>0.12931cm</Left> <Left>0.22456cm</Left>
<Height>1.11096cm</Height> <Height>1.11096cm</Height>
<Width>17.80045cm</Width> <Width>17.50518cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -549,7 +549,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>1.39318cm</Top> <Top>1.39318cm</Top>
<Left>0.16459cm</Left> <Left>0.25984cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>11.36782cm</Width> <Width>11.36782cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
@@ -567,7 +567,7 @@
<Height>0.82291in</Height> <Height>0.82291in</Height>
<Style /> <Style />
</Body> </Body>
<Width>7.05896in</Width> <Width>7.06771in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>4.11151cm</Height> <Height>4.11151cm</Height>
@@ -669,8 +669,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName> <rd:DefaultName>Textbox15</rd:DefaultName>
<Top>2.40854cm</Top> <Top>2.34504cm</Top>
<Left>2.30482cm</Left> <Left>2.43182cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>9.54145cm</Width> <Width>9.54145cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
@@ -698,8 +698,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox18</rd:DefaultName> <rd:DefaultName>Textbox18</rd:DefaultName>
<Top>3.14964cm</Top> <Top>3.08614cm</Top>
<Left>2.30482cm</Left> <Left>2.43182cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>9.54145cm</Width> <Width>9.54145cm</Width>
<ZIndex>4</ZIndex> <ZIndex>4</ZIndex>
@@ -730,8 +730,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox16</rd:DefaultName> <rd:DefaultName>Textbox16</rd:DefaultName>
<Top>3.1605cm</Top> <Top>3.097cm</Top>
<Left>0.14172cm</Left> <Left>0.26872cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.11724cm</Width> <Width>2.11724cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
@@ -765,8 +765,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName> <rd:DefaultName>Textbox14</rd:DefaultName>
<Top>2.40854cm</Top> <Top>2.34504cm</Top>
<Left>0.12931cm</Left> <Left>0.25631cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.12965cm</Width> <Width>2.12965cm</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>
@@ -871,8 +871,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName> <rd:DefaultName>Textbox4</rd:DefaultName>
<Top>3.16051cm</Top> <Top>3.09701cm</Top>
<Left>12.17799cm</Left> <Left>12.33674cm</Left>
<Height>0.59999cm</Height> <Height>0.59999cm</Height>
<Width>1.80326cm</Width> <Width>1.80326cm</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
@@ -902,8 +902,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName> <rd:DefaultName>Textbox6</rd:DefaultName>
<Top>2.40855cm</Top> <Top>2.34505cm</Top>
<Left>13.98125cm</Left> <Left>14.14cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>3.65324cm</Width> <Width>3.65324cm</Width>
<ZIndex>10</ZIndex> <ZIndex>10</ZIndex>
@@ -936,8 +936,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName> <rd:DefaultName>Textbox32</rd:DefaultName>
<Top>3.16051cm</Top> <Top>3.09701cm</Top>
<Left>13.98125cm</Left> <Left>14.14cm</Left>
<Height>0.59999cm</Height> <Height>0.59999cm</Height>
<Width>3.65324cm</Width> <Width>3.65324cm</Width>
<ZIndex>11</ZIndex> <ZIndex>11</ZIndex>
@@ -968,8 +968,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>2.40855cm</Top> <Top>2.34505cm</Top>
<Left>12.17799cm</Left> <Left>12.33674cm</Left>
<Height>0.59999cm</Height> <Height>0.59999cm</Height>
<Width>1.80326cm</Width> <Width>1.80326cm</Width>
<ZIndex>12</ZIndex> <ZIndex>12</ZIndex>
@@ -1040,7 +1040,7 @@
</Textbox> </Textbox>
<Line Name="Line7"> <Line Name="Line7">
<Top>0.28886cm</Top> <Top>0.28886cm</Top>
<Left>12.07381cm</Left> <Left>12.20081cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>4.95004cm</Width> <Width>4.95004cm</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
@@ -1068,7 +1068,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox31</rd:DefaultName> <rd:DefaultName>Textbox31</rd:DefaultName>
<Top>0.42997cm</Top> <Top>0.42997cm</Top>
<Left>11.67694cm</Left> <Left>11.80394cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>5.95755cm</Width> <Width>5.95755cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
@@ -1104,7 +1104,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>1.49022cm</Top> <Top>1.49022cm</Top>
<Left>11.83688cm</Left> <Left>11.96388cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.90426cm</Width> <Width>2.90426cm</Width>
<ZIndex>4</ZIndex> <ZIndex>4</ZIndex>
@@ -1140,7 +1140,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox33</rd:DefaultName> <rd:DefaultName>Textbox33</rd:DefaultName>
<Top>1.49022cm</Top> <Top>1.49022cm</Top>
<Left>14.74114cm</Left> <Left>14.86814cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.89335cm</Width> <Width>2.89335cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>