Eso Es Yna Paete De Sistema

Dim mytablea As New ADODB.Recordset

Dim mytablez As New ADODB.Recordset

mytablex.Fields("isc") = Val("" & mytabley.Fields("ISC"))

'mytablex.Fields("ivap") = Val("" & mytabley.Fields("nodscto")) 'ivap

'Exit Sub

mytablex.Fields("producto") = Trim("" & mytabley.Fields("producto"))

mytablex.Fields("barras") = "" & mytabley.Fields("barras")

mytablex.Fields("descripcio") = "" & mytabley.Fields("descripcio")

mytablex.Fields("descorto") = "" & mytabley.Fields("abreviado")

mytablex.Fields("presenta") = "" & mytabley.Fields("presentaci")

mytablex.Fields("dsctoref") = Val("" & mytabley.Fields("retencion"))

mytablex.Fields("familia") = "" & mytabley.Fields("familia")

mytablex.Fields("subfamilia") = "" & mytabley.Fields("subfamilia")

mytablex.Fields("seccion") = "" & mytabley.Fields("seccion")

mytablex.Fields("marca") = "" & mytabley.Fields("marca")

mytablex.Fields("categoria") = "" & mytabley.Fields("categoria")

'mytablex.Fields("linea") = "" & mytabley.Fields("flagtalla")

mytablex.Fields("color") = "" & mytabley.Fields("color")

mytablex.Fields("fabrica") = ""

mytablex.Fields("serie") = ""

mytablex.Fields("peso") = "" & mytabley.Fields("balanza")

mytablex.Fields("servicio") = ""

mytablex.Fields("vecaja") = "S"

mytablex.Fields("igv") = Val("" & mytabley.Fields("igv"))

mytablex.Fields("isc") = 0

mytablex.Fields("pesokgr") = 0.001

mytablex.Fields("comision") = 0

mytablex.Fields("monedac") = "" & mytabley.Fields("monedac")

mytablex.Fields("unidad") = "" & mytabley.Fields("unidad")

mytablex.Fields("factor") = Val("" & mytabley.Fields("factor"))

mytablex.Fields("costou") = Val("" & mytabley.Fields("costopaqu"))

mytablex.Fields("costop") = Val("" & mytabley.Fields("costopaqp"))

mytablex.Fields("monedav") = "" & mytabley.Fields("moneda")

mytablex.Fields("estado") = "S"

'mytablex.Fields("minimo") = Val("" & mytabley.Fields("stkminimo"))

'mytablex.Fields("maximo") = Val("" & mytabley.Fields("stkmaximo"))

'mytablez.Open "select * from dueno where codigo='" & "" & mytabley.Fields("seccion") & "' and local='01' and producto='" & "" & mytabley.Fields("producto") & "'", cn, adOpenStatic, adLockOptimistic

'If mytablez.RecordCount = 0 Then

' mytablez.AddNew

' mytablez.Fields("codigo") = "" & mytabley.Fields("seccion")

' mytablez.Fields("local") = "01"

' mytablez.Fields("producto") = "" & mytabley.Fields("producto")

' mytablez.Update

'Else

' mytablez.Fields("codigo") = "" & mytabley.Fields("seccion")

' mytablez.Fields("local") = "01"

' mytablez.Fields("producto") = "" & mytabley.Fields("producto")

' mytablez.Update

'End If

'mytablez.Close

'mytablez.Open "select * from codprov where codigo='" & "" & mytabley.Fields("proveedor") & "' and producto='" & mytabley.Fields("producto") & "'", cn, adOpenStatic, adLockOptimistic

'If mytablez.RecordCount = 0 Then

' mytablez.AddNew

' pone_detalle mytablez, mytabley, 0

' mytablez.Update

'Else

' pone_detalle mytablez, mytabley, 0

' mytablez.Update

'End If

'mytablez.Close

'mytablez.Open "select * from codprov where codigo='" & "" & mytabley.Fields("proveedor1") & "' and producto='" & mytabley.Fields("producto")

...