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 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.