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
=
"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
=
""
;
$nfse
->novo_cliente(
$tipo_tomador
,
$documento
,
$nome
,
$telefone
,
,
$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(
,
$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
=
"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
=
""
;
$nfse
->novo_cliente(
$tipo_tomador
,
$documento
,
$nome
,
$telefone
,
,
$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.