Eso Es Yna Paete De Sistema
Artigos Científicos: Eso Es Yna Paete De Sistema. Pesquise 862.000+ trabalhos acadêmicosPor: fabianita • 24/6/2014 • 1.268 Palavras (6 Páginas) • 604 Visualizações
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")
...