Lucianorw

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%

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 postar com exemplos para que eu possa entender, fico grato. Veja minha estrutura (ainda básica) na base de dados: '////////////// v_hr_entrada=data/hora exata em que foi batido o ponto da entrada v_hr_inicio=data/hora que o funcionário deveria começar a trabalhar v_hr_saida=data/hora exata em foi batido o ponto da saida v_hr_fim =data/hora em que o funcionario deveria parar de trabalhar este é um exemplo 26/03/2008 07:50:00, 26/03/2008 08:00:00, 26/03/2008 18:10:00, 26/03/2008 18:00:00 '//////////////// Quanto ao cálculo em valores, esse já é mais facil. Vejam bem, precisar saber com faço para achar as quantidades de horas não valores. Grato Luciano

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:\temp\teste.xml" For Output As #1 With v_txt Print #1, xmlhttp_resultado End With Close #1 End Function Desse modo, eu executo a consulta, salvo o xml, importo as tabelas, leio os dados e apresento ao usuario, tudo automático. E até que ficou legal, mas ainda estou com um pé atrás. Que acha? Luciano

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>111.111.111-22</Documento> <Nome>NOME DO DEVEDOR AAABBBCCC</Nome> <NomeMae /> <DataNasc>14/07/1970</DataNasc> <SituacaoDocumento>ATIVA EM 08/08/2007</SituacaoDocumento> <TotalOcorrencias>17</TotalOcorrencias> - <Pendencias> - <xs:schema id="PendenciasConcentre" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata"> - <xs:element name="PendenciasConcentre" msdata:IsDataSet="true" msdata:Locale="en-US"> - <xs:complexType> - <xs:choice minOccurs="0" maxOccurs="unbounded"> - <xs:element name="Grafias"> - <xs:complexType> - <xs:sequence> <xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" /> <xs:element name="Grafia" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> - <xs:element name="Protestos"> - <xs:complexType> - <xs:sequence> <xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" /> <xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" /> <xs:element name="NumeroCartorio" type="xs:string" minOccurs="0" /> <xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="Valor" type="xs:string" minOccurs="0" /> <xs:element name="Localidade" type="xs:string" minOccurs="0" /> <xs:element name="Estado" type="xs:string" minOccurs="0" /> <xs:element name="Cidade" type="xs:string" minOccurs="0" /> <xs:element name="SubJudice" type="xs:string" minOccurs="0" /> <xs:element name="DataCartaAnuencia" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> - <xs:element name="AcoesJudiciais"> - <xs:complexType> - <xs:sequence> <xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" /> <xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" /> <xs:element name="NumeroVaraCivil" type="xs:string" minOccurs="0" /> <xs:element name="NumeroDistribuidor" type="xs:string" minOccurs="0" /> <xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="Valor" type="xs:string" minOccurs="0" /> <xs:element name="Localidade" type="xs:string" minOccurs="0" /> <xs:element name="Estado" type="xs:string" minOccurs="0" /> <xs:element name="Cidade" type="xs:string" minOccurs="0" /> <xs:element name="Principal" type="xs:string" minOccurs="0" /> <xs:element name="SubJudice" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> - <xs:element name="FalenciasConcordatas"> - <xs:complexType> - <xs:sequence> <xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" /> <xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" /> <xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="NumeroVaraCivil" type="xs:string" minOccurs="0" /> <xs:element name="Localidade" type="xs:string" minOccurs="0" /> <xs:element name="Estado" type="xs:string" minOccurs="0" /> <xs:element name="Cidade" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> - <xs:element name="Participacoes"> - <xs:complexType> - <xs:sequence> <xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" /> <xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" /> <xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="CodigoQualificacao" type="xs:string" minOccurs="0" /> <xs:element name="NumeroVaraCivil" type="xs:string" minOccurs="0" /> <xs:element name="CNPJ" type="xs:string" minOccurs="0" /> <xs:element name="RazaoSocial" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> - <xs:element name="RestricoesFinanceiras"> - <xs:complexType> - <xs:sequence> <xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" /> <xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" /> <xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="CodigoBanco" type="xs:string" minOccurs="0" /> <xs:element name="CodigoAgencia" type="xs:string" minOccurs="0" /> <xs:element name="Valor" type="xs:string" minOccurs="0" /> <xs:element name="Localidade" type="xs:string" minOccurs="0" /> <xs:element name="Estado" type="xs:string" minOccurs="0" /> <xs:element name="NomeBanco" type="xs:string" minOccurs="0" /> <xs:element name="Cidade" type="xs:string" minOccurs="0" /> <xs:element name="Avalista" type="xs:string" minOccurs="0" /> <xs:element name="SubJudice" type="xs:string" minOccurs="0" /> <xs:element name="CNPJ" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> - <xs:element name="AcheiRecheque"> - <xs:complexType> - <xs:sequence> <xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" /> <xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" /> <xs:element name="CodigoBanco" type="xs:string" minOccurs="0" /> <xs:element name="CodigoAgencia" type="xs:string" minOccurs="0" /> <xs:element name="ContaCorrente" type="xs:string" minOccurs="0" /> <xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="Valor" type="xs:string" minOccurs="0" /> <xs:element name="Localidade" type="xs:string" minOccurs="0" /> <xs:element name="Estado" type="xs:string" minOccurs="0" /> <xs:element name="NomeBanco" type="xs:string" minOccurs="0" /> <xs:element name="NumeroCheque" type="xs:string" minOccurs="0" /> <xs:element name="Cidade" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> - <xs:element name="BACEN"> - <xs:complexType> - <xs:sequence> <xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" /> <xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" /> <xs:element name="CodigoBanco" type="xs:string" minOccurs="0" /> <xs:element name="NumeroAgencia" type="xs:string" minOccurs="0" /> <xs:element name="TotalCheques" type="xs:int" minOccurs="0" /> <xs:element name="Localidade" type="xs:string" minOccurs="0" /> <xs:element name="Estado" type="xs:string" minOccurs="0" /> <xs:element name="NomeFantasiaBanco" type="xs:string" minOccurs="0" /> <xs:element name="Cidade" type="xs:string" minOccurs="0" /> <xs:element name="NaturezadaConta" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> - <xs:element name="PendenciasFinanceiras"> - <xs:complexType> - <xs:sequence> <xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" /> <xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" /> <xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="Valor" type="xs:string" minOccurs="0" /> <xs:element name="Localidade" type="xs:string" minOccurs="0" /> <xs:element name="Estado" type="xs:string" minOccurs="0" /> <xs:element name="CNPJCredor" type="xs:string" minOccurs="0" /> <xs:element name="Credor" type="xs:string" minOccurs="0" /> <xs:element name="Avalista" type="xs:string" minOccurs="0" /> <xs:element name="Contrato" type="xs:string" minOccurs="0" /> <xs:element name="SubJudice" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> - <xs:element name="Convem"> - <xs:complexType> - <xs:sequence> <xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" /> <xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" /> <xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" /> <xs:element name="Valor" type="xs:string" minOccurs="0" /> <xs:element name="Localidade" type="xs:string" minOccurs="0" /> <xs:element name="Estado" type="xs:string" minOccurs="0" /> <xs:element name="CNPJCredor" type="xs:string" minOccurs="0" /> <xs:element name="Credor" type="xs:string" minOccurs="0" /> <xs:element name="Contrato" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> - <xs:element name="Alertas"> - <xs:complexType> - <xs:sequence> <xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" /> <xs:element name="TotalMensagens" type="xs:int" minOccurs="0" /> <xs:element name="Mensagem" type="xs:string" minOccurs="0" /> </xs:sequence> </xs:complexType> </xs:element> </xs:choice> </xs:complexType> - <xs:unique name="Constraint1" msdata:PrimaryKey="true"> <xs:selector xpath=".//Grafias" /> <xs:field xpath="Item" /> </xs:unique> - <xs:unique name="Protestos_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:selector xpath=".//Protestos" /> <xs:field xpath="Item" /> </xs:unique> - <xs:unique name="AcoesJudiciais_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:selector xpath=".//AcoesJudiciais" /> <xs:field xpath="Item" /> </xs:unique> - <xs:unique name="FalenciasConcordatas_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:selector xpath=".//FalenciasConcordatas" /> <xs:field xpath="Item" /> </xs:unique> - <xs:unique name="Participacoes_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:selector xpath=".//Participacoes" /> <xs:field xpath="Item" /> </xs:unique> - <xs:unique name="RestricoesFinanceiras_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:selector xpath=".//RestricoesFinanceiras" /> <xs:field xpath="Item" /> </xs:unique> - <xs:unique name="AcheiRecheque_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:selector xpath=".//AcheiRecheque" /> <xs:field xpath="Item" /> </xs:unique> - <xs:unique name="BACEN_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:selector xpath=".//BACEN" /> <xs:field xpath="Item" /> </xs:unique> - <xs:unique name="PendenciasFinanceiras_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:selector xpath=".//PendenciasFinanceiras" /> <xs:field xpath="Item" /> </xs:unique> - <xs:unique name="Convem_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:selector xpath=".//Convem" /> <xs:field xpath="Item" /> </xs:unique> - <xs:unique name="Alertas_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:selector xpath=".//Alertas" /> <xs:field xpath="Item" /> </xs:unique> </xs:element> </xs:schema> - <diffgr:diffgram xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:diffgr="urn:schemas-microsoft-com:xml-diffgram-v1"> - <PendenciasConcentre xmlns=""> - <Grafias diffgr:id="Grafias1" msdata:rowOrder="0" diffgr:hasChanges="inserted"> <Item>1</Item> <Grafia>NOME DO DEVEDOR AAABBBCCC</Grafia> </Grafias> - <Grafias diffgr:id="Grafias2" msdata:rowOrder="1" diffgr:hasChanges="inserted"> <Item>2</Item> <Grafia>NOME DO DEVEDOR AAABBBC</Grafia> </Grafias> - <Grafias diffgr:id="Grafias3" msdata:rowOrder="2" diffgr:hasChanges="inserted"> <Item>3</Item> <Grafia>NOME DO DEVEDOR AAABBBCC</Grafia> </Grafias> - <Grafias diffgr:id="Grafias4" msdata:rowOrder="3" diffgr:hasChanges="inserted"> <Item>4</Item> <Grafia>NOME DO DEVEDOR AAABBB</Grafia> </Grafias> - <Grafias diffgr:id="Grafias5" msdata:rowOrder="4" diffgr:hasChanges="inserted"> <Item>5</Item> <Grafia>OUTRAS</Grafia> </Grafias> - <Protestos diffgr:id="Protestos1" msdata:rowOrder="0" diffgr:hasChanges="inserted"> <Item>1</Item> <DataOcorrencia>15/05/2006</DataOcorrencia> <NumeroCartorio>0001</NumeroCartorio> <CodigoNatureza>Z1</CodigoNatureza> <DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza> <Valor>188,70</Valor> <Localidade>RJO</Localidade> <Estado>RJ</Estado> <Cidade>RIO DE JANEIRO</Cidade> <SubJudice>DIVIDA não CONTESTADA</SubJudice> <DataCartaAnuencia>00/00/0000</DataCartaAnuencia> </Protestos> - <Protestos diffgr:id="Protestos2" msdata:rowOrder="1" diffgr:hasChanges="inserted"> <Item>2</Item> <DataOcorrencia>15/03/2006</DataOcorrencia> <NumeroCartorio>0001</NumeroCartorio> <CodigoNatureza>Z1</CodigoNatureza> <DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza> <Valor>88,70</Valor> <Localidade>RJO</Localidade> <Estado>RJ</Estado> <Cidade>RIO DE JANEIRO</Cidade> <SubJudice>DIVIDA não CONTESTADA</SubJudice> <DataCartaAnuencia>00/00/0000</DataCartaAnuencia> </Protestos> - <Protestos diffgr:id="Protestos3" msdata:rowOrder="2" diffgr:hasChanges="inserted"> <Item>3</Item> <DataOcorrencia>15/02/2006</DataOcorrencia> <NumeroCartorio>0001</NumeroCartorio> <CodigoNatureza>Z1</CodigoNatureza> <DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza> <Valor>77,80</Valor> <Localidade>RJO</Localidade> <Estado>RJ</Estado> <Cidade>RIO DE JANEIRO</Cidade> <SubJudice>DIVIDA não CONTESTADA</SubJudice> <DataCartaAnuencia>00/00/0000</DataCartaAnuencia> </Protestos> - <Protestos diffgr:id="Protestos4" msdata:rowOrder="3" diffgr:hasChanges="inserted"> <Item>4</Item> <DataOcorrencia>13/12/2005</DataOcorrencia> <NumeroCartorio>0001</NumeroCartorio> <CodigoNatureza>Z1</CodigoNatureza> <DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza> <Valor>48,00</Valor> <Localidade>RJO</Localidade> <Estado>RJ</Estado> <Cidade>RIO DE JANEIRO</Cidade> <SubJudice>DIVIDA não CONTESTADA</SubJudice> <DataCartaAnuencia>00/00/0000</DataCartaAnuencia> </Protestos> - <Protestos diffgr:id="Protestos5" msdata:rowOrder="4" diffgr:hasChanges="inserted"> <Item>5</Item> <DataOcorrencia>11/11/2005</DataOcorrencia> <NumeroCartorio>0001</NumeroCartorio> <CodigoNatureza>Z1</CodigoNatureza> <DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza> <Valor>2,22</Valor> <Localidade>CNS</Localidade> <Estado>MG</Estado> <Cidade>CAPINOPOLIS</Cidade> <SubJudice>DIVIDA não CONTESTADA</SubJudice> <DataCartaAnuencia>00/00/0000</DataCartaAnuencia> </Protestos> - <Protestos diffgr:id="Protestos6" msdata:rowOrder="5" diffgr:hasChanges="inserted"> <Item>6</Item> <DataOcorrencia>12/08/2005</DataOcorrencia> <NumeroCartorio>0001</NumeroCartorio> <CodigoNatureza>Z1</CodigoNatureza> <DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza> <Valor>41,00</Valor> <Localidade>RJO</Localidade> <Estado>RJ</Estado> <Cidade>RIO DE JANEIRO</Cidade> <SubJudice>DIVIDA não CONTESTADA</SubJudice> <DataCartaAnuencia>00/00/0000</DataCartaAnuencia> </Protestos> - <AcoesJudiciais diffgr:id="AcoesJudiciais1" msdata:rowOrder="0" diffgr:hasChanges="inserted"> <Item>1</Item> <DataOcorrencia>10/02/2006</DataOcorrencia> <NumeroVaraCivil>0001</NumeroVaraCivil> <NumeroDistribuidor>0001</NumeroDistribuidor> <CodigoNatureza>EX</CodigoNatureza> <DescricaoNatureza>EXECUCAO</DescricaoNatureza> <Valor>111,11</Valor> <Localidade>SPO</Localidade> <Estado>SP</Estado> <Cidade>são PAULO</Cidade> <Principal>PRINCIPAL</Principal> <SubJudice /> </AcoesJudiciais> - <Participacoes diffgr:id="Participacoes1" msdata:rowOrder="0" diffgr:hasChanges="inserted"> <Item>1</Item> <DataOcorrencia>20/05/2003</DataOcorrencia> <CodigoNatureza>FD</CodigoNatureza> <DescricaoNatureza>FALENCIA DECRETADA</DescricaoNatureza> <CodigoQualificacao>0001</CodigoQualificacao> <NumeroVaraCivil>0001</NumeroVaraCivil> <CNPJ>000000333</CNPJ> <RazaoSocial>TESTE 333</RazaoSocial> </Participacoes> - <RestricoesFinanceiras diffgr:id="RestricoesFinanceiras1" msdata:rowOrder="0" diffgr:hasChanges="inserted"> <Item>1</Item> <DataOcorrencia>28/05/2007</DataOcorrencia> <CodigoNatureza>AG</CodigoNatureza> <DescricaoNatureza>EMPRESTIMOS AGRICOLAS E INDUSTRIAIS - FINANCIAMENTOS DE CUSTEIO DE INVESTIMENTOS AGRICOLAS E INDUSTRIAIS</DescricaoNatureza> <CodigoBanco>356</CodigoBanco> <CodigoAgencia>0001</CodigoAgencia> <Valor>1.500,00</Valor> <Localidade>RJO</Localidade> <Estado>RJ</Estado> <NomeBanco>EXEMPLO AAAA</NomeBanco> <Cidade>RIO DE JANEIRO</Cidade> <Avalista>não</Avalista> <SubJudice /> <CNPJ>033066408</CNPJ> </RestricoesFinanceiras> - <RestricoesFinanceiras diffgr:id="RestricoesFinanceiras2" msdata:rowOrder="1" diffgr:hasChanges="inserted"> <Item>2</Item> <DataOcorrencia>21/05/2007</DataOcorrencia> <CodigoNatureza>AR</CodigoNatureza> <DescricaoNatureza>ARRENDAMENTOS, INCLUSIVE LEASING</DescricaoNatureza> <CodigoBanco>356</CodigoBanco> <CodigoAgencia>0001</CodigoAgencia> <Valor>100,00</Valor> <Localidade>RJO</Localidade> <Estado>RJ</Estado> <NomeBanco>EXEMPLO AAAA</NomeBanco> <Cidade>RIO DE JANEIRO</Cidade> <Avalista>não</Avalista> <SubJudice /> <CNPJ>033066408</CNPJ> </RestricoesFinanceiras> - <RestricoesFinanceiras diffgr:id="RestricoesFinanceiras3" msdata:rowOrder="2" diffgr:hasChanges="inserted"> <Item>3</Item> <DataOcorrencia>15/04/2007</DataOcorrencia> <CodigoNatureza>FI</CodigoNatureza> <DescricaoNatureza>CREDITOS E FINANCIAMENTOS - EMPRESTIMOS A PESSOAS FISICAS, FINANCIAMENTOS AO CONSUMIDOR FINAL, ETC</DescricaoNatureza> <CodigoBanco>356</CodigoBanco> <CodigoAgencia>0001</CodigoAgencia> <Valor>1.000,00</Valor> <Localidade>RJO</Localidade> <Estado>RJ</Estado> <NomeBanco>EXEMPLO AAAA</NomeBanco> <Cidade>RIO DE JANEIRO</Cidade> <Avalista>não</Avalista> <SubJudice /> <CNPJ>033066408</CNPJ> </RestricoesFinanceiras> - <RestricoesFinanceiras diffgr:id="RestricoesFinanceiras4" msdata:rowOrder="3" diffgr:hasChanges="inserted"> <Item>4</Item> <DataOcorrencia>20/02/2007</DataOcorrencia> <CodigoNatureza>AR</CodigoNatureza> <DescricaoNatureza>ARRENDAMENTOS, INCLUSIVE LEASING</DescricaoNatureza> <CodigoBanco>356</CodigoBanco> <CodigoAgencia>0001</CodigoAgencia> <Valor>258,96</Valor> <Localidade>RJO</Localidade> <Estado>RJ</Estado> <NomeBanco>EXEMPLO AAAA</NomeBanco> <Cidade>RIO DE JANEIRO</Cidade> <Avalista>não</Avalista> <SubJudice /> <CNPJ>033066408</CNPJ> </RestricoesFinanceiras> - <RestricoesFinanceiras diffgr:id="RestricoesFinanceiras5" msdata:rowOrder="4" diffgr:hasChanges="inserted"> <Item>5</Item> <DataOcorrencia>25/12/2006</DataOcorrencia> <CodigoNatureza>AD</CodigoNatureza> <DescricaoNatureza>ADIANTAMENTO A DEPOSITANTES - C/C DEVEDORES EM GERAL</DescricaoNatureza> <CodigoBanco>356</CodigoBanco> <CodigoAgencia>0001</CodigoAgencia> <Valor>500,00</Valor> <Localidade>RJO</Localidade> <Estado>RJ</Estado> <NomeBanco>EXEMPLO AAAA</NomeBanco> <Cidade>RIO DE JANEIRO</Cidade> <Avalista>não</Avalista> <SubJudice /> <CNPJ>033066408</CNPJ> </RestricoesFinanceiras> - <AcheiRecheque diffgr:id="AcheiRecheque1" msdata:rowOrder="0" diffgr:hasChanges="inserted"> <Item>1</Item> <DataOcorrencia>20/02/2006</DataOcorrencia> <CodigoBanco>999</CodigoBanco> <CodigoAgencia>0001</CodigoAgencia> <ContaCorrente>000123456</ContaCorrente> <CodigoNatureza>12</CodigoNatureza> <DescricaoNatureza>CHEQUES SEM FUNDOS (2A. APRESENTACAO)</DescricaoNatureza> <Valor>10.000,00</Valor> <Localidade>SPO</Localidade> <Estado>SP</Estado> <NomeBanco>BANCO TESTE</NomeBanco> <NumeroCheque>000123456</NumeroCheque> <Cidade>são PAULO</Cidade> </AcheiRecheque> - <PendenciasFinanceiras diffgr:id="PendenciasFinanceiras1" msdata:rowOrder="0" diffgr:hasChanges="inserted"> <Item>1</Item> <DataOcorrencia>14/05/2003</DataOcorrencia> <CodigoNatureza>FI</CodigoNatureza> <DescricaoNatureza>CREDITOS E FINANCIAMENTOS</DescricaoNatureza> <Valor>147,02</Valor> <Localidade>SPO</Localidade> <Estado>SP</Estado> <CNPJCredor>062173620</CNPJCredor> <Credor>SERASA</Credor> <Avalista>não</Avalista> <Contrato>Z32S</Contrato> <SubJudice /> </PendenciasFinanceiras> - <PendenciasFinanceiras diffgr:id="PendenciasFinanceiras2" msdata:rowOrder="1" diffgr:hasChanges="inserted"> <Item>2</Item> <DataOcorrencia>05/05/2003</DataOcorrencia> <CodigoNatureza>AD</CodigoNatureza> <DescricaoNatureza>ADIANTAMENTOS A DEPOSITANTES - CONTA CORRENTE DEVEDORA</DescricaoNatureza> <Valor>12,12</Valor> <Localidade>CAS</Localidade> <Estado>SP</Estado> <CNPJCredor>062173620</CNPJCredor> <Credor>SERASA</Credor> <Avalista>não</Avalista> <Contrato>TESTENOVO2</Contrato> <SubJudice /> </PendenciasFinanceiras> - <PendenciasFinanceiras diffgr:id="PendenciasFinanceiras3" msdata:rowOrder="2" diffgr:hasChanges="inserted"> <Item>3</Item> <DataOcorrencia>04/04/2003</DataOcorrencia> <CodigoNatureza>AD</CodigoNatureza> <DescricaoNatureza>ADIANTAMENTOS A DEPOSITANTES - CONTA CORRENTE DEVEDORA</DescricaoNatureza> <Valor>11,11</Valor> <Localidade>CAS</Localidade> <Estado>SP</Estado> <CNPJCredor>062173620</CNPJCredor> <Credor>SERASA</Credor> <Avalista>não</Avalista> <Contrato>TESTENOVO1</Contrato> <SubJudice /> </PendenciasFinanceiras> </PendenciasConcentre> </diffgr:diffgram> </Pendencias> <Mensagem>COM RESTRICOES</Mensagem> <Status>true</Status> </SERASAConsultaConcentre>

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

Ola Graymalkin, Pois é, ele não esta entrando no Protestos. Alguma dica? []'s Luciano

Ola, Existe a possibilidade de se salvar o conteudo de web browser em arquivo xml? Luciano

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

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 If protestos.basename = "Protestos" Then For Each v_dados In protestos.childnodes vprotestos = vprotestos & v_dados.nodename & " : " & v_dados.Text & vbCrLf Next End If Next End If Next Grato Luciano

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

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 este loop dentro de PENDENCIAS. For i = 0 To oResposta.context.childNodes.length - 1 If oResposta.context.childNodes.Item(i).baseName = "Protestos" Then v_protestos = "DATA................:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "NUMERO CARTORIO.....:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "CODIGO NATUREZA.....:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "DESCRICAO NATUREZA..:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "VALOR...............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "LOCALIDADE..........:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "ESTADO..............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "CIDADE..............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "SUB JUDICE..........:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos v_protestos = "DATA CARTA ANUENCIA.:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos End If Next End If Next

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 WSDL = "http://www.consultacpf.com/webservices/consultacpf.asmx?wsdl" ServiceName = "ConsultaCPFWebService" strError = SOAPClient.MSSoapInit(WSDL, ServiceName) Set oResposta = SOAPClient.ConsultaSimplesSERASASandBox(Email, Senha, Documento) End Function

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 ExampleVar as New clsws_ConsultaCPFWebService ' debug.print ExampleVar.wsm_ConsultaSaldoCliente("Entrada de Exemplo") ' 'Para obter mais informações, consulte Tipos Complexos na Ajuda do Microsoft Office 2003 'Web Services Toolkit. ' 'Alterações no código desta classe podem resultar em comportamento incorreto. ' '***************************************************************** 'Dimensionando variáveis de classe particulares. Private sc_ConsultaCPFWebService As SoapClient30 Private Const c_WSDL_URL As String = "http://www.consultacpf.com/webservices/consultacpf.asmx?wsdl" Private Const c_SERVICE As String = "ConsultaCPFWebService" Private Const c_PORT As String = "ConsultaCPFWebServiceSoap" Private Const c_SERVICE_NAMESPACE As String = "ConsultaCPF" Private Sub Class_Initialize() '***************************************************************** 'Esta sub-rotina será chamada sempre que a classe for instanciada. 'Cria sc_ComplexTypes como novo SoapClient30 e, em seguida, 'inicializa sc_ComplexTypes.mssoapinit2 com o arquivo WSDL encontrado em 'http://www.consultacpf.com/webservices/consultacpf.asmx?wsdl. '***************************************************************** Dim str_WSML As String str_WSML = "<servicemapping>" str_WSML = str_WSML & "<service name='ConsultaCPFWebService'>" str_WSML = str_WSML & "<using PROGID='MSOSOAP.GenericCustomTypeMapper30' cachable='0' ID='GCTM'/>" str_WSML = str_WSML & "<types>" str_WSML = str_WSML & "<type name='Cliente' targetNamespace='ConsultaCPF' uses='GCTM' targetClassName='struct_Cliente'/>" str_WSML = str_WSML & "<type name='SERASAConsultaDetalhada' targetNamespace='ConsultaCPF' uses='GCTM' targetClassName='struct_SERASAConsultaDetalh'/>" str_WSML = str_WSML & "<type name='SERASAConsultaSimples' targetNamespace='ConsultaCPF' uses='GCTM' targetClassName='struct_SERASAConsultaSimple'/>" str_WSML = str_WSML & "<type name='SinteseCadastral' targetNamespace='ConsultaCPF' uses='GCTM' targetClassName='struct_SinteseCadastral'/>" str_WSML = str_WSML & "</types>" str_WSML = str_WSML & "</service>" str_WSML = str_WSML & "</servicemapping>" Set sc_ConsultaCPFWebService = New SoapClient30 sc_ConsultaCPFWebService.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT, c_SERVICE_NAMESPACE 'Use o servidor proxy definido nas configurações da LAN do Internet Explorer para detectar ', configurando ProxyServer como sc_ConsultaCPFWebService.ConnectorProperty("ProxyServer") = "" 'Detecte automaticamente as configurações de proxy se o Internet Explorer for definido para detecção automática, 'configurando EnableAutoProxy como True sc_ConsultaCPFWebService.ConnectorProperty("EnableAutoProxy") = True Set sc_ConsultaCPFWebService.ClientProperty("GCTMObjectFactory") = New clsof_Factory_ConsultaCPFWe End Sub

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_SERVICE, c_PORT, c_SERVICE_NAMESPACE Erro em temo de execução '-2147024809 (800070057)': WSDLReader:XML Parser failed at linenumber 0, lineposition 0, reason is: The system cannot locate the project specified. HRESULT:0x1: Função incorreta. - WSDLReader:Loading of the WSDL file failed. HRESULT=0x80070057: Parâmetro incorreto. - Client:One of the parameters supplied is invalid. HRESULT=0x80070057: Parâmetro incorreto. '//////////////// Uso MSAccess2003, MS Office 2003 Web Services Toolkit, todas as referencias estao marcadas, enfim, esta tudo ok, tanto que, se tiro a linha para de dar problema. Grato se puder(em) dar uma ajuda, pois, já estava com a entrega prevista, e to enrolando o pessoal por causa deste erro. Att Luciano

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

Ola, alguém sabe de algum componente DBcombobox que aceite mais de uma coluna, e que seja free. Eu já vi o infopower, mas este não é free. Grato Luciano d7+fb1.5

Ola, Tem como, em tempo de execucao, fingir que o delphi esta sendo executado, mesmo em uma maquina q não tenha o delphi. Grato Luciano d7+fb

Ola, Como faço para q ao sair de um campo TDBEDIT (no datamodule, em simpledataset defini a mascara 00/00/0099), faça a validação de datas, de preferencia sem usar excepet? já vi alguns exemplos pela web, mas a maioria é para tedit e outros não consegui fazer funcionar. Uma dica q me deram seria traduzir as msg de erro do delphi, mas convenhamos, é melhor aprender a tratar este tipo de erro. Desculpe pela pergunta, pois sou iniciante no assunto. Grato Luciano d7+fb1.5

Ola, Primeiramente gostaria de agradecer sua atencao por visitar este tópico. Gostaria de desenvolver um form para ser usado como filtro para relatórios e formulários, mas não sei nem por onde comecar, a ideia eu tenho, mas sou novato no assunto. Seria mais ou menos no estilo clipper (já muito em sistemas gerados pelo gaspro), onde tem varios tipos de filtro q você quer, exemplo: > >= < <= <> >= e <= onde comeca termina Pois, creio q com isto ficaria bem interessante e pratico. E tb, como implementar isto. Se você souber de algum site q tenha isto como exemplo e puder me indicar, ficaria muito agradecido. Grato Luciano d7+fb1.5+dbexpress

Problema resolvido usando sql. Desisti do applicationevents porque so usa em vcl. Grato a todos pela ajuda. Luciano

Ola, Achei isto, mas não sei onde colocar para chamar o erro. // procedure Tdados.appeventException(Sender: TObject; E: Exception); begin if ( E is EIBInterBaseError ) then begin if ( EIBInterBaseError(E).IBErrorCode = 335544466 ) then Application.MessageBox( PChar( 'Não é possível excluir este registro, pois existem outras informações no sistema que dependem do mesmo.' ), 'Atenção !!!', MB_ICONEXCLAMATION ) else if ( EIBInterBaseError(E).IBErrorCode = 335544510 ) then Application.MessageBox( PChar( 'Não é possível continuar com a operação.' + #13 + 'O banco de dados está sendo utilizado.' ), 'Atenção !!!', MB_ICONEXCLAMATION ) else if ( EIBInterBaseError(E).IBErrorCode = 335544375 ) then Application.MessageBox( PChar( 'O servidor de banco de dados não está aberto.' + #13 + 'Verifique e tente novamente.' ), 'Atenção !!!', MB_ICONEXCLAMATION ) else if ( EIBInterBaseError(E).IBErrorCode = 335544344 ) then Application.MessageBox( PChar( 'Não foi possível encontrar o banco de dados.' ), 'Atenção !!!', MB_ICONEXCLAMATION ) else Application.MessageBox( PChar( E.ClassName + ' - ' + E.Message ), 'Atenção !!!', MB_ICONEXCLAMATION ); end; end; Grato Luciano

Ola, Como faco para me dar uma msg de erro na hora de excluir o registro relacionado (chave estrangeira)? Se possivel, sem q eu tenha q ir na tbl e verificar se tem algo relacionado a este codigo. // codigo no botao de exclusao procedure Tfrmpesqcadbanco.btnexcluirClick(Sender: TObject); begin with dados do if sdsbanco.IsEmpty then begin beep; ShowMessage('Não existem dados para exclusão!'); end else if application.messagebox(PCHAR('Deseja exluir o Banco '+ dados.sdsbancoCODBANCO.AsString +' - '+ dados.sdsbancoDESCBANCO.AsString +' ?'),'Atenção!',mb_iconQuestion+mb_yesno)=idno then Abort else begin sdsbanco.Delete; sdsbanco.ApplyUpdates(0); end; end; // D7+fb1.5 Grato a todos Luciano

Brigadú Valeú Falows

Ola a todos, Como faço para q ao abrir o form, jogar o foco na primeira coluna e primeira linha num dbgrid? Grato Luciano