Alain da Silva

obrigado

boa tarde, eu utilizo a tdosprn para a impressão em uma epson lx 300 na porta LTP1. porém agora com a troca do equipamento o computador não possui mais porta lpt1 e tive que colocar um adaptador de USB. Agora não funciona mais. Qual  solução para isto? outro programa ou tem solução com a tdosprn? lembrando que é para imprimir cheques

agradeço a ajuda

bom dia, alguem aqui utiliza alguma api rest para emissão de nfe ?

obrigado aferra, era isso  mesmo.

boa tarde pessoal, é possível através de uma variável por exemplo via rádio, que eu mude as colunas no meu xbrowse em tempo de execução

exemplo:

  @45,05  RADIO oRad VAR vRad  OF ODLG1 SIZE 100,12;
               ITEMS "NOTA DE COMPRA ESTOQUE" pixel COLOR AZULF5,CINZA ON CHANGE ATUALIZABRW(vRAD,aBtnP[4],aBtnP[5],aBtnP[6],aBtnP[7],aBtnP[8],aBtnP[9])
  @45,110  RADIOITEM "NOTA DE ATIVO"                COLOR AZULF5,CINZA  RADIOMENU oRad OF oDlg1 pixel UPDATE
  @45,180  RADIOITEM "NOTA DE COMBUSTÍVEL"          COLOR AZULF5,CINZA  RADIOMENU oRad OF oDlg1 pixel UPDATE
  @45,280  RADIOITEM "NOTA DE MATERIAL OU CONSUMO"  COLOR AZULF5,CINZA  RADIOMENU oRad OF oDlg1 pixel UPDATE
 

boa tarde, hoje estava fazendo um teste sem sucesso em um cliente para emissão da nfe em sua filial no estado do MS, a maquina instalada esta com o Windows 10. 

Com o erro tentei acessar o WebService: https://nfe.sefaz.ms.gov.br/ws/NFeAutorizacao4 e não estou conseguindo.

ocorre o seguinte erro: O certificado de segurança do site não é seguro.

Código de Erro: 0

Alguem tem alguma dica?

Obrigado

estou fazendo uns testes aqui e estou tendo erro de validação no schema.

Erro: -1072897687 '8961157472fc218ac00417d20b1128f5e342dfa5' viola a restrição length de '28'.
Falha da análise do elemento 'hashCSRT' com valor '8961157472fc218ac00417d20b1128f5e342dfa5'.
 

xml: <hashCSRT>8961157472fc218ac00417d20b1128f5e342dfa5</hashCSRT>
 

Já foi informado onde cadastrar o CSRT - Código de Segurança do Responsável Técnico ?

pessoal, usando essa função, como faço pra fazer o backup dos subdiretórios e que ele me coloque na mesma ordem.

nesse exemplo se eu coloco outro diretório ele cria tudo junto.

/*---- Funcao para Compactar os Arquivos de Backup ----*/
   Function BackupZip()
   LOCAL lRet   := .F.
   LOCAL aFiles := {}
   LOCAL cArq   := ".\backup\Backup"+dtos(date())+".zip"
   if file(cArq);FERASE(cArq);endif
   
    aFiles := {,;
               ".\DADOS\*.dbf",;
               ".\DADOS\*.fpt",;
               ".\TESTE\*.*",;
             }
	   lRet := hb_ZipFile( cArq, aFiles )
	   If .NOT. lRet
	      cArq := " "
       Endif
   Return( cArq )

Se alguém que esta desenvolvendo e estiver interessado em trocar ideias: skype :alainrancharia

bom dia, alguém poderia me dizer se esta correto o xml consulta retorno?

<?xml version="1.0" encoding="ISO-8859-1"?>
<soap:Envelope xmlns:v1="http://www.esocial.gov.br/schema/lote/eventos/envio/consulta/retornoProcessamento/v1_1_0" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<ConsultarLoteEventos>
<consulta>
<eSocial xmlns="http://www.esocial.gov.br/schema/lote/eventos/envio/consulta/retornoProcessamento/v1_0_0">
<consultaLoteEventos>
<protocoloEnvio>1.1.201902.0000000000348359153</protocoloEnvio>
</consultaLoteEventos>
</eSocial>
</consulta>
</ConsultarLoteEventos>
</soap:Body>
</soap:Envelope>

e também se os WS da consulta estão corretos:

POST:=https://webservices.consulta.esocial.gov.br/servicos/empregador/consultarloteeventos/WsConsultarLoteEventos.svc

SoapAction:=http://www.esocial.gov.br/servicos/empregador/lote/eventos/envio/consulta/retornoProcessamento/v1_1_0/ServicoConsultarLoteEventos/ConsultarLoteEventos

boa tarde, onde eu consigo a classe tWord()

obrigado

Atualizando o Comando:

Bom dia, Valdir aqui nesse link fala algo sobre a lib: http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=16160

Sobre o comando:

cString  :="G8063VRTNDMO886SFNK5LDUDEI24XJ22YIPO41180678393592000146558900000006041028190697"

cString64:=HB_BASE64( hb_sha1(cString),Len( hb_sha1(cString)) ) ou 

cString64:=HB_BASE64ENCODE( hb_sha1(cString),Len( hb_sha1(cString)) )

Resultado = Njk2YmZhMmRlMTBjZTE3ZWFlZTNlYTgxMjM2Mzk4NjdjODJiOGEwYw==

diferente do resultado do exemplo = 696bfa2de10ce17eaee3ea8123639867c82b8a0c

????

ninguém?

bom dia, alguém no grupo sabe como fazer essa função ?

O passo-a-passo para gerado o hashCSRT deve seguir o indicado a seguir:

1. Concatenar o CSRT cadastrado na Sefaz com a chave de acesso do documento a ser emitido (NFe / NFCe)

         Exemplo:

     2. Aplicar o algoritmo SHA-1 sobre a concatenação e converter para base64. A string resultante terá 28 caracteres

         Exemplo:

      3. Preencher o campo hashCSRT com o resultado. Atenção! Poderão ser emitidos até 5 CSRT válidos com IDs diferentes.      Guarde o hash gerado para CSRT de ID correspondente.

        Exemplo:

Seria isso?

    hash:="G8063VRTNDMO886SFNK5LDUDEI24XJ22YIPO411806783935920001146558900000006041028190697"

    ?HB_Base64( hb_sha1(hash), Len( hb_sha1(hash)) )

    ou

    ?HB_Base64( hb_md5(hash), Len( hb_md5(hash)) )

    O resultado não base com esse do exemplo...
 

experimenta mudar aqui:

cRetorno := oServer:responseText

?cRetorno

tenta assim:

            xXml:='<?xml version="1.0" encoding="utf-8"?>'
            xXml+='<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">'
            xXml+='<soap:Body>'
            xXml+='<EnviarLoteEventos xmlnm="http://www.esocial.gov.br/schema/lote/eventos/envio/v1_1_1">'
            xXml+='<eSocial xmlns="http://www.esocial.gov.br/schema/lote/eventos/envio/v1_1_1">'

            if oArq="EVTINI"
               xXml+='<envioLoteEventos grupo="1">'
            elseIf oArq="EVTNPER"
               xXml+='<envioLoteEventos grupo="2">'
            elseIf oArq="EVTPER"
               xXml+='<envioLoteEventos grupo="3">'
            endif

            xXml+='<ideEmpregador>'

tenta assim:

<?xml version="1.0" encoding="ISO-8859-1"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<EnviarLoteEventos xmlnm="http://www.esocial.gov.br/schema/lote/eventos/envio/v1_1_1">
<eSocial xmlns="http://www.esocial.gov.br/schema/lote/eventos/envio/v1_1_1">
<envioLoteEventos grupo="1">
<ideEmpregador>
 

qual programa externo esta usando?

bom dia Oliveiros, como vc esta assinando o arquivo?

realmente voltou a funcionar, mas tentei enviar em modo scan e não consegui, Kapiaba, tem como vc postar o xml do modo scan pra eu ver o que mudou?

obrigado

att

alain

bom dia, estou tentando fazer uma pesquisa em meu browse com uma pesquisa com parte de uma string usando o comando OrdWildSeek.

dbf com cdx.

Estou fazendo o seguinte:

@40,260 get oGet1 var cNom PICT "@!"  OF oDlg Size 230,12 pixel BITMAP ".\IMAGE\bitmaps\zoom.bmp"  action PesquisaParteString(obrw,cnom) 

  SELE 47
  DBSETORDER(1)
  TABELA3->(dbgotop())
  OTABELA3:={}
  DbEval({|| AaDd(OTABELA3,{TABELA3->CODIGO,TABELA3->TABELA3,alltrim(tabela3->DESCRICAON)})})
  TABELA3->(dbgotop())
  @60,5 XBROWSE oBrw SIZE 490,180;
            COLUMNS 1,2,3;
            HEADERS "Código","Tabela3","Descrição" ;
            PICTURES NIL,Nil,NIL;
            COLSIZES 80,300,300 ;
            OF oDlg pixel;
            ARRAY oTabela3

FUNCTION PesquisaParteString(obrw,oTexto)
    SELE 47
    DBGOTOP()
    if OrdWildSeek("*"+alltrim(OTEXTO)+"*")
       oTAbela3:={}
       AaDd(OTABELA3,{TABELA3->CODIGO,TABELA3->TABELA3,alltrim(tabela3->DESCRICAON)})
       DO WHILE OrdWildSeek("*"+alltrim(OTEXTO)+"*",.T.)
          AaDd(OTABELA3,{TABELA3->CODIGO,TABELA3->TABELA3,alltrim(tabela3->DESCRICAON)})
       ENDDO
    else
       tabela3->(dbgotop())
    end
    amensagem:=""
    OBRW:SETARRAY(OTABELA3)
    OBRW:REFRESH()
    DBGOTOP()
RETURN nil

-------------------------------------------

Funciona, o browse é atualizado somente com os dados da minha pesquisa. Agora como faço pra através do browse alterar meu lançamento no arquivo. Como faço essa relação array com o banco de dados.

bom dia, pelo que vi as parcelas somente devem ser colocadas se a forma de pagamento for "14-duplicata mercantil"

no caso do seu xm esta

<detPag>
<tPag>15</tPag>    //boleto
<vPag>106115.62</vPag>
</detPag>

Grupo Y. Dados da Cobrança
Campo�Seq
Modelo Regra de Validação Aplic. Msg Efeito
Descrição Erro
Y07-10 55 Informado o Grupo Duplicata (id:Y07) e não informado Duplicata
Mercantil como uma das Formas de Pagamento (tag:tPag<>14,id:YA02)
Obrig. 867 Rej. Rejeição: Grupo duplicata informado e forma de pagamento não é Duplicata Mercantil.
 

bom dia, pra quem precisa somente enviar um xml que "já se encontra assinado". O sistema não assinado o arquivo.

https://www.4shared.com/folder/LF8aXT21/_online.html

Estou fazedo a assinatura em JAVA. Envio e Retorno em xharbour.

Segue o xml S2299 pra quem precisar.

evtDeslig.xml