Erro ao pre-validar nota paulista


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Erro ao pre-validar nota paulista

PC²

JUCUTUQUARA, VITÓRIA
ES - BRASIL

ENUNCIADA !

Postada em 28/07/2009 17:56 hs

Boa noite

pessoal, estou escrevendo um codigo para NFP, mas ao validar o mesmo dá um erro que não consegui sanar. abaixo a mensagem obtida no programa pré-validador da NFP:

Erro|9|Registro 90|366|1|9000|Tipo de Registro inválido: Quantidade de registros tipo 20
Erro|9|Registro 90|366|1|9000|Tipo de Registro inválido: Quantidade de registros tipo 30
Erro|9|Registro 90|366|1|9000|Tipo de Registro inválido: Quantidade de registros tipo 40
Erro|9|Registro 90|366|1|9000|Tipo de Registro inválido: Quantidade de registros tipo 50
Erro|9|Registro 90|366|1|9000|Tipo de Registro inválido: Quantidade de registros tipo 60

E este é o arquivo original que estou mandando:

10|1,00|09543000000120|13/10/2008|13/10/2008
20|I||VENDA |1|366|13/10/2008 09:37:41|13/10/2008 09:37:00|1|5405|||05891976000115|REGINALDOS|ROD. RAPOSO TAVARES KM 116|1||JD. COLOMBO|ITAPETININGA |SP|18200000||39995986|3719991114
30|627|PISTÃO ACIONAMENTO MANETIM||PC|1,0000|55,0000|55,00|000|17,00|0,00|0,00|
30|453|JG.REPARO VALVULA DRENO WABCO||JG|1,0000|20,0000|20,00|000|17,00|0,00|0,00|
30|0|SERVIÇO MÃO DE OBRA||UN|1,0000|15,0000|15,00|040|0,00|0,00|0,00|
40|75,00|9,35|0,00|0,00|90,00|0,00|0,00|0,00|0,00|0,00|90,00||5,00|0,75|
50|0|||||||||0|
60|A VISTA|||
90|1|3|1|1|1

Se alguém puder me dar uma luz, agradeço.

JR
não registrado

ENUNCIADA !

Postada em 16/08/2009 21:24 hs

CORRIJA O REGISTRO 90 PARA:

90|00001|00003|00001|00001|00001

Mara Regina
não registrado

ENUNCIADA !

Postada em 19/08/2009 20:25 hs

Estou com problemas para gerar o arquivo no formato UTF8 em VB

alguem pode me ajudar ? ? ? ?

Marcio
não registrado

ENUNCIADA !

Postada em 23/10/2009 06:08 hs

Eu tenho uma função que faz a conversão para UTF-8

Private Function UTF8_Encode(ByVal sStr As String)
    Dim l As Long, lChar As Integer, sUtf8 As String
    For l = 1 To Len(sStr)
        lChar = AscW(Mid(sStr, l, 1))
        If lChar < 128 Then
            sUtf8 = sUtf8 + Mid(sStr, l, 1)
        ElseIf ((lChar > 127) And (lChar < 2048)) Then
            sUtf8 = sUtf8 + Chr(((lChar  64) Or 192))
            sUtf8 = sUtf8 + Chr(((lChar And 63) Or 128))
        Else
            sUtf8 = sUtf8 + Chr(((lChar  144) Or 234))
            sUtf8 = sUtf8 + Chr((((lChar  64) And 63) Or 128))
            sUtf8 = sUtf8 + Chr(((lChar And 63) Or 128))
        End If
    Next l
    UTF8_Encode = sUtf8
End Function

Para salvar o arquivo basta utilizar o Open ... for Output

Dim Arq1 As Integer, caminho As String
    Arq1 = FreeFile
    Open caminho For Output As Arq1 'caminho do arquivo a ser salvo

    Print #Arq1, UTF8_Encode(Conteudo)'O conteudo é uma string
    Close Arq1

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR