/ 
WWW-NFSe-Guarapari-0.02
River stage zero No dependents
/ WWW::NFSe::Guarapari

NAME

WWW::NFSe::Guarapari- Module for issuance electronic invoice and customer management.

VERSION

version 0.02

SYNOPSIS

use WWW::NFSe::Guarapari; 

my $nfse = WWW::NFSe::Guarapari->new();
#my $nfse= new WWW::NFSe::Guarapari();

# Loga no sistema
$nfse->logar( "cpfcnpj", "senha" );

# Novo Cliente(Tomador/Intermediário)
my $tipo_tomador = "J"; # F - J - E(Estrangeiro)
my $documento = "000.000.000-00"; # CPF ou CNPJ
my $nome = "Fulano de Tal";
my $NomeFantasia = "Beltranos S.A"; #If tipo_tomador = "F"
my $InscricaoMunicipal = "000.000"; #If tipo_tomador = "F"
my $InscricaoEstadual = "000.000"; #If tipo_tomador = "F"
my $telefone = "";
my $email = "fulano@de.tal";
my $municipioEstrangeiro = "NeverLand"; #If tipo_tomador = "E"
my $PaisEstrangeiro = "NeverLand"; #If tipo_tomador = "E"
my $tipologradouro = "";
my $tipoEndereco = "-1"; # -1/Selecione | 3/Cobrança | 2/Comercial | 4/Correspondência | 1/Residencial
my $logradouro = "";
my $numero = "";
my $complemento = "";
my $bairro = "";
my #cep = "000.000-000";
my $uf = "DF";
my $cidades = "";

print $nfse->novo_cliente( $tipo_tomador, $documento, $nome, $telefone, $email, $tipologradouro, $tipoendereco, $logradouro, $numero, $complemento, $bairro, $cep, $uf, $cidades );

METHODS

logar()

Loga no painel de controle. Este método deverá ser chamado antes de qualquer outro método. Ativa flag $statusLogin.

my $status_login = $painel->logar($email, $senha);

Return string

logged, invalid login, not found, unknow HTTP error, connection error

novo_cliente()

Cria novo tomador/Intermediário

# Novo Cliente(Tomador/Intermediário)
my $tipo_tomador = "J"; # F - J - E(Estrangeiro)
my $documento = "000.000.000-00"; # CPF ou CNPJ
my $nome = "Fulano de Tal";
my $NomeFantasia = "Beltranos S.A";     #If tipo_tomador = "F"
my $InscricaoMunicipal = "000.000";     #If tipo_tomador = "F"
my $InscricaoEstadual = "000.000";      #If tipo_tomador = "F"
my $telefone = "";
my $email = "fulano@de.tal";
my $municipioEstrangeiro = "NeverLand";  #If tipo_tomador = "E"
my $PaisEstrangeiro = "NeverLand";       #If tipo_tomador = "E"
my $tipologradouro = "";
my $tipoEndereco = "-1"; # -1/Selecione | 3/Cobrança | 2/Comercial | 4/Correspondência | 1/Residencial
my $logradouro = "";
my $numero = "";
my $complemento = "";
my $bairro = "";
my #cep = "000.000-000";
my $uf = "DF";
my $cidades = "";

print $nfse->novo_cliente( $tipo_tomador, $documento, $nome, $telefone, $email, $tipologradouro, $tipoendereco, $logradouro, $numero, $complemento, $bairro, $cep, $uf, $cidades );

Return JSON

{"nome":"Fulano de Tal","resposta":"registrado","status":"sucesso","codigo":"107630"}
{"resposta":"E-mail em uso","status":"erro"}
{"resposta":"efetue login primeiro","status":"erro"}

AUTHOR

Álvaro Luiz Andrade <alvaro@web2solutions.com.br>

COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by WEB2 Soluções.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.