FONTE NFE VB.NET

OTAVIOFAVERO 31/08/2010 08:52:21
#351778
ei daniel so uma pergunta qual programa vc usou para gerar akeles arquivos NfeInutilizacao2.vb automaticos....

achei intereçante pois em um modo de vista diferente nao e preciso ficar add varios web services de estados! pois minha dll 2.00 e assim varios web services!!

eu terminei de novo minha dll 2.00 pois tinha perdido tudo! Aleluiaaaaaa hahahha

abç
OTAVIOFAVERO 31/08/2010 08:55:35
#351780
ha esqueci de por o complemento do txt

Function Formatox(ByVal valor, ByVal tipo)
Dim retorno As String = valor
If tipo = [Ô]moeda[Ô] Then
retorno = Replace(valor, [Ô].[Ô], [Ô],[Ô])
retorno = FormatCurrency(retorno)
retorno = Replace(retorno, [Ô]R$ [Ô], [Ô][Ô])
End If

If tipo = [Ô]imposto[Ô] Then
[ô]If IsNumeric(valor) = False Then valor = [Ô]0[Ô]
retorno = Replace(valor, [Ô].00[Ô], [Ô][Ô])
retorno = Replace(retorno, [Ô].00[Ô], [Ô][Ô])
retorno = Replace(retorno, [Ô].0[Ô], [Ô][Ô])
retorno = Int(retorno)
End If

If tipo = [Ô]data[Ô] Then
retorno = valor
retorno = FormatDateTime(retorno)
End If

If tipo = [Ô]documento[Ô] Then
If IsNumeric(valor) = False Then valor = [Ô]0[Ô]
retorno = FormatarCpfCnpj(valor)
retorno = (retorno)
End If

If tipo = [Ô]insc[Ô] Then
If IsNumeric(valor) = False Then valor = [Ô]0[Ô]
retorno = Formatarinsc(valor)
retorno = (retorno)
End If

If tipo = [Ô]tel[Ô] Then
If IsNumeric(valor) = False Then valor = [Ô]0[Ô]
retorno = FormatarTel(valor)
retorno = (retorno)
End If

If tipo = [Ô]cep[Ô] Then
[ô]If IsNumeric(valor) = False Then valor = [Ô]0[Ô]
retorno = FormatarCep(valor)
retorno = (retorno)
End If

If tipo = [Ô]placa[Ô] Then
[ô]If IsNumeric(valor) = False Then valor = [Ô]0[Ô]
retorno = FormatarPlaca(valor)
retorno = (retorno)
End If

Return retorno
End Function

Public Shared Function FormatarCep(ByVal strValo As String) As String

Dim mtpv As MaskedTextProvider = New MaskedTextProvider([Ô]00000\-000[Ô])
mtpv.Set(ZerosEsquerda(strValo, 8))
Return mtpv.ToString

End Function

Public Shared Function FormatarPlaca(ByVal strValo As String) As String

Dim mtpv As MaskedTextProvider = New MaskedTextProvider([Ô]AAA\-0000[Ô])
mtpv.Set(ZerosEsquerda(strValo, 7))
Return mtpv.ToString

End Function

Public Shared Function FormatarTel(ByVal strValo As String) As String

Dim mtpv As MaskedTextProvider = New MaskedTextProvider([Ô](000\)0000-0000[Ô])
mtpv.Set(ZerosEsquerda(strValo, 11))
Return mtpv.ToString

End Function

Public Shared Function Formatarinsc(ByVal strValo As String) As String

Dim valor As String = [Ô]ISENTO[Ô]
Dim mtpv As MaskedTextProvider = New MaskedTextProvider([Ô]000\.000\.000\.000\.000[Ô])
If strValo = [Ô]ISENTO[Ô] Then
valor = strValo

Else
mtpv.Set(ZerosEsquerda(strValo, 12))

valor = mtpv.ToString

If Mid(valor, Len(valor), Len(valor)) = [Ô].[Ô] Then
valor = Mid(valor, 1, Len(valor) - 1)
End If
End If

Return valor.ToString

End Function

Public Shared Function FormatarCpfCnpj(ByVal strCpfCnpj As String) As String
If (strCpfCnpj.Length <= 11) Then
Dim mtpCpf As MaskedTextProvider = New MaskedTextProvider([Ô]000\.000\.000-00[Ô])
mtpCpf.Set(ZerosEsquerda(strCpfCnpj, 11))
Return mtpCpf.ToString
Else
Dim mtpCnpj As MaskedTextProvider = New MaskedTextProvider([Ô]00\.000\.000/0000-00[Ô])
mtpCnpj.Set(ZerosEsquerda(strCpfCnpj, 11))
Return mtpCnpj.ToString
End If
End Function

Public Shared Function ZerosEsquerda(ByVal strString As String, ByVal intTamanho As Integer) As String
Dim strResult As String = [Ô][Ô]
Dim intCont As Integer = 1
Do While (intCont _
<= (intTamanho - strString.Length))
strResult = (strResult + [Ô]0[Ô])
intCont = (intCont + 1)
Loop
Return (strResult + strString)
End Function

abç
OTAVIOFAVERO 31/08/2010 09:06:12
#351782
alguem sabe me informar o que mudou no layout da danfe 3.00 para 4.00

??/ eu tava olhando e eu nao vi nada de diferente!!! sera que nao mudou nada?

abç
DANIELCPAETE 31/08/2010 09:32:00
#351789
é o WSDL do próprio Visual Studio Otavio ele gera para varias linguagens da plataforma .Net.
OTAVIOFAVERO 31/08/2010 09:41:39
#351791
Citação:

:
é o WSDL do próprio Visual Studio Otavio ele gera para varias linguagens da plataforma .Net.



puts que vacilada minha eu nao sabia que ele gerava dentro da pasta de web references hahhahaah automaticamente!!


valeu pelo toque
RODRIGUESRM 31/08/2010 10:10:52
#351793
DANIELCPAETE,

Qual é a versão do Layout que está sendo utilizado para este projeto, o 1.1 ou 2.0 ?
DANIELCPAETE 31/08/2010 11:13:54
#351800
Rodrigues é a 2.0.
OTAVIOFAVERO 31/08/2010 13:04:26
#351809
alguem ja pegou esse erro

Rejeição: Tipo autorizador do recibo diverge do Órgão Autorizador.

sera pq foi gerado em 1.10 e estou solicitando em 2.00??

abç

<retConsReciNFe versao=[Ô]2.00[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]><tpAmb>1</tpAmb><verAplic>SP_NFE_PL_006e</verAplic><nRec>350000243902714</nRec><cStat>553</cStat><xMotivo>Rejeição: Tipo autorizador do recibo diverge do Órgão Autorizador.</xMotivo><cUF>35</cUF></retConsReciNFe>
LEANDROSHURA 31/08/2010 15:00:49
#351830
Alguem sabe alguma coisa sobre os dados do transportador
me retorna isso

O elemento [ô]transp[ô] no espaço para nome [ô]http://www.portalfiscal.inf.br/nfe[ô] apresenta elemento filho [ô]transporta[ô] no espaço para nome [ô]http://www.portalfiscal.inf.br/nfe[ô] inválido. Lista de possíveis elementos esperados: [ô]http://www.portalfiscal.inf.br/nfe:modFrete[ô].


so que o modFrete está correto.
LEANDROSHURA 31/08/2010 15:37:56
#351833
Descobri

na ultima versão disponivel aqui, na hora que gera o xml na parte dos dados do transportador o modFrete tem que vir antes das outras coisas. e esta vindo depois.
por isso ele fala que nao existe

outra coisa é o pesobruto e o pesoLiquido, ele da um bisiu por causa do ponto. é so modificar la e funciona
Página 36 de 228 [2276 registro(s)]
Faça seu login para responder
Voltar