Jump to content
Fórum Script Brasil

Lucianorw

Membros
  • Content Count

    31
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Lucianorw

  1. Resolvido! Horas extras 50% Quando? >de 2ª à 6ª = Antes e pós do horário normal de trabalho. >Sábado = o dia todo caso dia de semana(2ª a 6ª) é trabalhado jornada de 8,8(8:48 hs), caso a jornada de trabalho for 8 hs dia, no sábado terá que trabalhar + 04:00 hs para fechar as 44:00 hs semanais, pós estas 04:00(sábado) Já passa a receber horas extras de 50% Cálculo > salário mensal / 220 hs + 50% Horas 100% Quando? Domingos e feriados Càlculo > salário mensal / 220 hs + 100%
  2. Boa tarde! Sei que a dúvida não é sobre access, mas desenvolvo no Access (VBA), por isso postei aqui, me desculpem se não era o local mais apropriado para isto. Estou desenvolvendo uma rotina para achar (calcular) horas extras e adicional noturno, mas não estou encontrando material para leitura. Bom, o que preciso, é saber, quais as regras para se achar as horas extras de funcionários, me parece que tem ligações com dias da semana, feriados, o adicional noturno é das 22hs as 05, enfim, gostaria, se possível que me explicassem detalhadamente como se faz para achar estas horas. Ah, se puderem po
  3. Resumindo, assim: Function busca_serasa_concentre() vemail = Form_frm_consulta.txt_email vsenha = Form_frm_consulta.txt_senha vdoc = Form_frm_consulta.txt_documento url = "http://www.consultacpf.com/webservices/test-drive/consultacpf.asmx/ConsultaConcentreSERASA?EMail=" & vemail & "&Senha=" & vsenha & "&Documento=" & vdoc & "" Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.Open "GET", url, False xmlhttp.Send "" xmlhttp_resultado = xmlhttp.responseText Set xmlhttp = Nothing Dim v_txt As Variant Open "c:\te
  4. Ola Graymalkin, Este é o retorno de uma consulta. Só que não sei como salvar aqui no forum, mas no meu pc, se apos realizar a consulta, no navegador mando salvar em xml, fica perfeito, sem erro algum, alias, estou resolvendo o meu problema dessa maneira, executo a consulta, salvo o retorno em xml ai eu trato os dados para o usuario. Grato Luciano '////////////////////////// <?xml version="1.0" encoding="utf-8" ?> - <SERASAConsultaConcentre xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="ConsultaCPF"> <Documento>11
  5. Ola Graymalkin, Quando copio e colo o link, com os dados necessarios para consulta, no navegador, se vou em Arquivo>Salvar como, ele salva em xml normal, ai ate consigo importar as tabelas, mas com o web browser da erro. Tudo isso é relacionado aquele problema que voce está me ajudando. Grato Luciano
  6. Ola Graymalkin, Pois é, ele não esta entrando no Protestos. Alguma dica? []'s Luciano
  7. Ola, Existe a possibilidade de se salvar o conteudo de web browser em arquivo xml? Luciano
  8. Boa tarde!!! Como faço para trabalhar com GET e POST no VBA? Vejam o exemplo abaixo: http://www.consultacpf.com/webservices/tes...ento=MEUDOCAQUI Luciano
  9. Ola Graymalkin, Testei o código que voce passou, só que vprotestos está vindo nulo. Tive que mudar o nome de algumas variáveis, será que fiz algo errado? Veja como ficou: Dim v_pendencias As Object Dim vprotestos As String, protestos As Object Dim v_dados As Object For Each v_pendencias In oResposta.context.childnodes If v_pendencias.basename = "Pendencias" Then txt = "PENDENCIAS.........:" & v_pendencias.Text & vbCrLf & txt vprotestos = "" For Each protestos In v_pendencias.childnodes
  10. Ola Graymalkin, Grato pela atenção!!! Vou mudar sim o esquema para o seu modelo, pois fica mais limpo. O que preciso, é que quando chegar em PENDENCIAS, percorrer todos o "itens dentro de Pendencias". Desculpe não saber explicar, pois, é a primeira vez que trabalho com XML. Outra coisa, após dar um invoke do exemplo, tem como salvar o resultado em XML? http://www.consultacpf.com/webservices/tes...ConcentreSERASA Voce só consegue acessar se for cadastrado com um CNPJ valido. Grato Luciano
  11. Boa tarde!!! Como faço um loop para ler um XML, na verdade, estou tendo dificuldades em fazer o loop dentro de um "pai" (acho que é assim que fala). Veja o wsdl http://www.consultacpf.com/webservices/tes...tacpf.asmx?WSDL Veja o que fiz até o momento. Grato Luciano Dim lCounter For lCounter = 0 To oResposta.context.childNodes.length - 1 If oResposta.context.childNodes.Item(lCounter).baseName = "Pendencias" Then txt = "PENDENCIAS..........:" & oResposta.context.childNodes.Item(lCounter).Text & vbCrLf & txt '/// preciso saber como implementar es
  12. Código mais enxuto, mas porque a string retorna NULA? Grato Luciano Option Compare Database Option Explicit Public strError As String Public WSDL, ServiceName Public oResposta Public Resultado As String, Email As String, Senha As String, Documento As String Public Function teste() Email = "SEU EMAIL AQUI" Senha = "SUA SENHA AQUI" Documento = "SEU CPF/CNPJ AQUI" Resultado = SERASA(Email, Senha, Documento) End Function Public Function SERASA(ByVal Email As String, ByVal Senha As String, ByVal Documento As String) As String Dim SOAPClient Set SOAPClient = New SoapClient30
  13. Bom dia!!! No código abaixo, tem algum erro? Option Compare Database '***************************************************************** 'Esta classe foi criada pelo Microsoft Office 2003 Web Services Toolkit. ' 'Criação: 10/8/2007 02:15:32 PM ' 'Descrição: 'Esta classe é uma representação de classe do Visual Basic for Applications do serviço da Web 'conforme definido por http://www.consultacpf.com/webservices/consultacpf.asmx?wsdl. ' 'Usar: 'Dimensione uma variável como novo(a) clsws_ConsultaCPFWebService e escreva o código para 'usar os métodos fornecidos pela classe. 'Exemplo: ' Dim Exam
  14. Ola Fabiano, Estava quase terminando a consulta ao Serasa, usando o consultacpf.com, mas, foi incluido uma nova consulta (Consulta Detalhdada) e apos isto, apresenta erro quando tento fazer a consulta, se você entender de VBA e puder da uma olhada no meu problema, fico grato. '/// apos a inclusao da linha abaixo comecou o erro: str_WSML = str_WSML & "<type name='SERASAConsultaDetalhada' targetNamespace='ConsultaCPF' uses='GCTM' targetClassName='struct_SERASAConsultaDetalh'/>" '/// a msg apresenta-se na linha abaixo: sc_ConsultaCPFWebService.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVIC
  15. E ai AMIGOS, Grato pela atencao!!! Sim, eu já havia testado o DBLookUpComboBox, mas gostaria de algo mais "bonito", pois, eu tenho q deixar um campo um tanto quanto grande, para mostrar as coluna q preciso e apos selecionar o registro, so me vai mostrar o q preciso. Achei super interessante a do infopower, mas... Desculpe se estou dizendo alguma besteira, é q sou novato no assunto. Grato Luciano
×
×
  • Create New...