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 @10,10 XBROWSE OBRWF SIZE 610,150 PIXEL OF oFld:aDialogs[1] ALIAS "ARQNFEC" FASTEDIT AUTOSORT font FNORMAL14 if vrad=1 ADD COLUMN TO XBROWSE OBRWF DATA estoque HEADER "estoque" SIZE 30 CENTER else ADD COLUMN TO XBROWSE OBRWF DATA produto HEADER "estoque" SIZE 30 CENTER endif OBRWF:CreateFromCode() seria mais ou menos isso, conforme eu mudo meu radio ele atualiza as colunas no meu browse

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: CSRT:='G8063VRTNDMO886SFNK5LDUDEI24XJ22YIPO' ChavedeAcesso:='41180678393592000146558900000006041028190697' idCSRT:='01' cString:=CSRT+ChavedeAcesso Xml:='< infRespTec>' Xml+='<CNPJ>99999999999999</CNPJ>' Xml+='<xContato>Nome do Contato</xContato>' Xml+='<email>email@empresaficticia.com.br</email>' Xml+='<fone>41999999999</fone>' Xml+='<idCSRT>'+idCSRT+'</idCSRT>' Xml+='<hashCSRT>'+hb_SHA1(cstring)+'</hashCSRT>' Xml+='</infRespTec>' ?Xml

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