toya

Ola Adelson... Dê um passeio por aqui: http://www.firstsql.com/tutor6.htm Pode ser que ajude um pouco... toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Colaborando... estou finalizando um modelo para Bematech (imaginem!!!) MP-20 FI II... Porém, vejam alguns detalhes esclarecidos no link abaixo... Atentem para os itens 4 e 5... http://info.fazenda.sp.gov.br/NXT/gateway.dll/legislacao_tributaria/outros_atos_normativos/cdeat242007.htm toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Editado por - toya on 14/10/2007 11:46:25 Editado por - toya on 14/10/2007 11:48:12

na toyaNET http://www.toyanet.com.br/utilitar.php'>http://www.toyanet.com.br/utilitar.php baixe o arquivo (158) pixeledi 1. Carregue o arquivo da imagem 2. Tools/Convert Image... 3. Click em True Color+Alpha (32bits) 4. Ok 5. Salve..... toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Editado por - toya on 03/10/2007 07:39:40

https://200.214.130.41:9443/farmaciahomologa/intro/ https://200.214.130.41:9443/farmaciahomologa/services/ServicoSolicitacaoWS?wsdl toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Ja olhastes neste link ? http://www.abcfarma.org.br/home/farmaciapopular/ toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Obs: As vezes fica um bocado dificil quando nao se tem o Code da rotina na qual o colega diz ter o problema... Em todo caso..., usando DbCombo, verifique se utilizastes o oDbCombo:Refil() para atualização do mesmo toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

No meu caso, utilizando FWH e não utilizando socket: Monto assim o arquivo 0100/800500: /* Conteudo do arquivo a ser enviado para a autorizadora */ cTxt:='000-000 = 0100'+CRLF // Código da Mensagem cTxt+='011-000 = 800500'+CRLF // Código do Processo cTxt+='001-000 = '+::cNsuSequen+CRLF // Numero de Controle do Estabelecimento cTxt+='040-000 = '+::cOperadora+CRLF // Operadora cTxt+='012-000 = '+::cNsuAdmin+CRLF // NSU - Número de Controle da Administradora cTxt+='940-000 = 003'+CRLF // Modelo do Layout cTxt+='942-000 = '+::cCnpj+CRLF // CNPJ da Farmacia cTxt+='941-000 = 001'+CRLF // Numero do Terminal cTxt+='023-000 = '+SoNumeros( time() )+CRLF // Hora cTxt+='022-000 = '+DToCE( date(), 'MMDD' )+CRLF // Data (MMDD) Mes e Dia cTxt+='953-000 = '+::cNumCartao+CRLF // Numero do Cartao cTxt+='004-000 = REA'+CRLF // Moeda cTxt+='949-000 = '+::cComplPort+CRLF // Dados Complementares Portador cTxt+='900-000 = '+::cContinua+CRLF // Indicador de continuação MemoWrit( cFileName+'.TXT', cTxt) id=code>id=code>O retorno, na 0110/800500: /* Colher os Produtos Aprovados */ // MsgOk( 'Continua... Recuperação de Pré-Autorização - Produtos' ) y:=0 for x=0 to 11 cAux:=::GetValor( ::aRetorno, '902-0'+strzero( x, 2, 0 ) ) if !empty( cAux ) y++ aadd( ::aCodBarra, cAux ) // Código de Barras Produto (EAN) aadd( ::aTipoEmba, ::GetValor( ::aRetorno, '906-0'+strzero( x, 2, 0 ) ) ) // Tipo de embalagem aadd( ::aQuantida, ::GetValor( ::aRetorno, '905-0'+strzero( x, 2, 0 ) ) ) // Quantidade do item aprovada aadd( ::aPrcBruto, ::GetValor( ::aRetorno, '910-0'+strzero( x, 2, 0 ) ) ) // Preço Bruto do Produto pelo estabelecimento aadd( ::aPrcLiqui, ::GetValor( ::aRetorno, '911-0'+strzero( x, 2, 0 ) ) ) // Preço Bruto do Produto (antes dos subsidios) aadd( ::aValReceb, ::GetValor( ::aRetorno, '912-0'+strzero( x, 2, 0 ) ) ) // Valor que o estabelecimento receberá a vista (após subsidios) aadd( ::aDesconto, ::GetValor( ::aRetorno, '909-0'+strzero( x, 2, 0 ) ) ) // Percentual do desconto concedido aadd( ::aStatusPro,::GetValor( ::aRetorno, '919-0'+strzero( x, 2, 0 ) ) ) // Código de aceite ou Recusa informado pela Central aadd( ::aValorSubsidio, ( ( ( DiviZero( val( ::aPrcLiqui[y] ), 100 ) )-( DiviZero( val( ::aValReceb[y] ), 100 ) ) )*val( ::aQuantida[y] ) ) ) ::nTotSubsidio+=::aValorSubsidio[y] endif next if ::GetValor( ::aRetorno, '900-000' )='0' exit endif id=code>id=code>toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

1. Na Resposta Recuperação de Pre-Autorização solicitada atraves do Envio Recuperação de Pré-Autorização (100/800500) , não se esqueça de que cada mensagem resposta (0110/800500) suporta até 12 itens. 2. Apos a verificação, atraves do seu aplicativo, dos itens "Aprovados" via 0110/800500 deves montar o Envio Efetivação de Transação (0200/800300) com os itens que o seu cliente realmente deseja adquirir. (Vide observações detalhadas na pagina 2/13 do Guia Referencia Rapida-Troca de Mensagens) toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Caro colega... Estou neste mesmo barco e ja ia abrir um topico sobre o assunto como abri para o SNGPC. A lógica é neste sentido similar ao do TEF discado. Inclusive alguns testes lá na Seven seguem o mesmo crivo... toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Ja foi enviado para vosso e-mail... toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

SNGPC - homologado!!! Dicas: 1. Na entrada de medicamento por compras, a data da nota fiscal não pode ser menor que a data do inicio do periodo informado. 2. Na saida por transferencia, o CNPJ da empresa destino tem de existir na base da dados da ANVISA. Para consultar a existencia podes utilizar: http://www7.anvisa.gov.br/datavisa/Autorizacao_farmacia/Consulta_Empresa_Drogaria.asp toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Podes consultar por aqui: http://www7.anvisa.gov.br/datavisa/Autorizacao_farmacia/Consulta_Empresa_Drogaria.asp toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

http://www.taringa.net/posts/info/894839/Feliz-d%C3%ADa-del-Programador!.html toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

http://www.taringa.net/posts/info/894839/Feliz-d%C3%ADa-del-Programador!.html toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Dica...: Caso, por exemplo, operes apenas com Drogaria e não com Farmacia, e tenhas apenas a movimentação de Medicamentos e não de Insumos, obrigatoriamente deverás informar esta situação. Basta para tal ao finalizares os medicamentos ( ) acrescentares: XML OPEN MARK 'insumos' OF oXml XML CLOSE MARK OF oXml // insumos id=code>id=code>toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Editado por - toya on 13/09/2007 09:02:14

Cronograma Prazos para Credenciamento - Farmácias (em todo território nacional): até 180 dias; - Drogarias (regiões sul, sudeste e Distrito Federal): até 180 dias; - Drogarias (região nordeste): até 270 dias; - Drogarias (regiões norte e centro-oeste, salvo Distrito Federal): até 360 dias. Os prazos serão contados a partir da data de publicação da RDC Nº 27, de 30 de março de 2007 Fonte - Agência Nacional de Vigilância Sanitária - ANVISA / Sistema Nacional de Gerenciamento de Produtos Controlados - SNGPC Pelo visto as farmácias e drogarias de MG terão o prazo para adequação adiado para até o dia 02 de novembro de 2007 http://www.saude.mg.gov.br/noticias_e_eventos/prazo-para-adequacao-de-farmacias-termina-em-novembro/ toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Editado por - toya on 09/09/2007 12:21:50

Kleyton, permita-me pegar uma carona no vosso tópico... Estou tambem na caça deste cadastro, além dos dados básicos preciso do número de Registro MS dos mesmos. toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Desculpe a simplicidade da resposta... Mas quem me conhece sabe que jamais nego colaborar... Retificando o Topico: Resolvido... e pronto para auxiliar os que entrarem no assunto... Utilizei os recursos: * CLASS TXMLWRITE * Activex toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Editado por - toya on 06/09/2007 11:17:48

Resolvido... toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Sugiro a abertura deste tópico para trocarmos experiencias sobre este tema. Tenho sómente encontrado Forum de Delphi e VB sobre o mesmo. Pergunto se colegas que utilizam o FWH estão desenvolvendo sobre o assunto. http://www.anvisa.gov.br/hotsite/sngpc/esquemas.asp toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Sugiro a abertura deste tópico para trocarmos experiencias sobre este tema. Tenho sómente encontrado Forum de Delphi e VB sobre o mesmo. Pergunto se colegas que utilizam o FWH estão desenvolvendo sobre o assunto. http://www.anvisa.gov.br/hotsite/sngpc/esquemas.asp toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Bom dia a todos!!! Mui grato, por manter os meus créditos na Dica sugerida... toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Podem começar por aqui: http://portal.saude.gov.br/saude/area.cfm?id_area=1095 http://www.vidalink.com.br/ toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Editado por - toya on 06/07/2007 22:28:16

function DosPrintJob(cArq, cPorta) cPorta = upper(cPorta) if ! file( cArq ) .... Mensagem de erro que não localizou o arquivo, etc... return( Nil ) endif __CopyFile(cArq, cPorta, .f.) SysRefresh() SysWait(2) return( Nil ) toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Vejam um exemplo na toyaNET dentro do Projeto tuareg. toya toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)