ARQUIVO TXT (BALANÇAS TOLEDO / FILIZOLA)

Citação:

:
Dim sw As New IO.StreamWriter(CaminhoFilizola & "CADTXT.txt", False, System.Text.Encoding.ASCII)
If SQL.SEL("Select *From nag_produtos Where Balanca=1 And Status=0 Order By Produto", False) = True Then

While SQL_NAG.MY_RE.Read
Dim Barras As String = SQL.MY_RE.Item("Cod_Prod_Balan").ToString
Dim VTipo As String = "P"

"**
Dim PROD As String = Mid(SQL.MY_RE.Item("Produto").ToString, 1, 22)
Dim QTDCHAROB As Integer = 22 "Limitador dos caracteres
Dim QTDCHAR As Integer = Len(PROD) "Quantidade de caracteres do Produto
Dim DIFCHAR As Integer = QTDCHAROB - QTDCHAR " Calcula diferença dos carac para o limite permitido


Dim ValorProduto As String = FormatNumber(SQL.MY_RE.Item("V_Kg_VA").ToString, 2)
ValorProduto = Replace(ValorProduto, ",", "")
ValorProduto = String.Format("{0:0000000}", Int32.Parse(ValorProduto)) "FORMAT PARA TER SEMPRE 7 CARACATERES


"** Validade
Dim Validate As Object
"Validate = RSProdutos!ValidadeK
Validate = "360"
Validate = String.Format("{0:000}", Int32.Parse(Validate)) "FORMAT PARA TER SEMPRE 6 CARACATERES A ESQUERDA
"If Len(Validate) = 1 Then
"Validate = "00" & Validate
"ElseIf Len(Validate) = 2 Then
"Validate = "0" & Validate
"End If
"**Fim Validade
sw.WriteLine(Barras & VTipo & Removeacentos(PROD) & Space(DIFCHAR) & ValorProduto & Validate)
End While
SQLFECHA_SEL()
sw.Flush()
sw.Close()
Else
MsgBox("Produto Fracionado não localizado", MsgBoxStyle.Critical, "BALANCA_EXPORTA_PRODUTOS FILIZOLA")
Return False
End If

Citação:

:
Imagem.