NOTA FISCAL

LCSD 08/08/2007 12:11:14
#229988
entaum vc..vai criar um form de config da nota..

modularize esse form da seguinte forma.....

CABEÇALHO DA NOTA.....

vai receber os parametros do cabeçalho da nota.

CORPO DA NOTA....

vai receber os parametros do corpo da nota....

RODAPE DA NOTA.....

vai receber os paramentros do rodape da nota....

PARA GRAVAR OS PARAMETROS VC DEVERA CONCATENAR OS CAMPOS

EXEMPLOS

CABEÇALHO......
SaveSetting "SEU SISTEMA", "NOTA FISCAL\CABEÇALHO DA NOTA\NUMERO DA NOTA", txtLinhaNumNF & "/" & txtColunaNumNF
SaveSetting "SEU SISTEMA", "NOTA FISCAL\CABEÇALHO DA NOTA\NATUREZA OPERAÇÃO", txtLinhaNATOpe & "/" & txtColunaNATOpe

CORPO.......
SaveSetting "SEU SISTEMA", "NOTA FISCAL\CORPO DA NOTA\CODIGO DO PRODUTO", txtLinhaCODIGOProduto & "/" & txtColunaCODIGOProduto
SaveSetting "SEU SISTEMA", "NOTA FISCAL\CORPO DA NOTA\DESCRIÇÃO DO PRODUTO", txtLinhaDescricao & "/" & txtColunaDescricao


RODAPé.........

SaveSetting "SEU SISTEMA", "NOTA FISCAL\RODAPé DA NOTA\TOTAL DOS PRODUTOS", txtLinhaTotalDosProdutos & "/" & txtColunatotalDosProdutos
SaveSetting "SEU SISTEMA", "NOTA FISCAL\RODAPé DA NOTA\TOTAL DA NOTA", txtLinhaTotalDaNota & "/" & txtColunaTotalDaNota


PARA LER OS CAMPOS NO FORM

txtLinhaNumNF = LEFT(GetSetting("SEU SISTEMA", "NOTA FISCAL\CABEÇALHO DA NOTA\NUMERO DA NOTA","Valor"),2)
txtColunaNumNF = Right(GetSetting("SEU SISTEMA", "NOTA FISCAL\CABEÇALHO DA NOTA\NUMERO DA NOTA","Valor"),2)


PARA IMPRIMIR.....


No meu caso utilizo apenas o valor da coluna pois utilizo o método PRINT ......
Ficaria assim :

DIM vTab(0 to 58) as string
vTab(0) = Right(GetSetting("SEU SISTEMA", "NOTA FISCAL\CABEÇALHO DA NOTA\NUMERO DA NOTA","Valor"),2)
vTab(1) = Right(GetSetting("SEU SISTEMA", "NOTA FISCAL\CABEÇALHO DA NOTA\TIPO DE OPERAÇÃO","Valor"),2)

OPEN "LPT1" FOR OUTPUT AS #1
PRINT #1, TAB(vTab(0)); txtNumeroDaNota,
PRINT #1, TAB(vTab(1)); txtTipoOperação,
CLOSE #1


COMO VC PODE OBSERVAR SOH PEGO O VALOR DA COLUNA......


No seu caso para imprimir seria interessante fazer um modulo para buscar os valores das linhas e colunas e joga-los em uma variável ....


' ISSO PARA VALORES DE COLUNA
vTab(xxxxx) = Right(GetSetting("SEU SISTEMA", "SUA CHAVE DESEJADA\SUA SEÇÃO DESEJADA", "VALOR,2)

' ISSO PARA VALORES DE LINHA
vTab(yyyy) = LEFT(GetSetting("SEU SISTEMA", "SUA CHAVE DESEJADA\SUA SEÇÃO DESEJADA", "VALOR,2)


é MAIS OU MENOS ISSO AE.....
FGSANTOS 08/08/2007 18:29:05
#230100
Anexo imagem da tela de configuraçao que eu fiz.

As coordenadas X e Y sao em centímetros. Entao o carinha pega uma régua e o formulário dele, vai medindo e digitando.

Para imprimir: select * from confignf



  if rs!nrnfx <> 0 and rs!nrnfy <> 0 then objeto.currentx = rs!nfnfx: objeto.currenty = rs!nrnfy: objeto.print txtnrnf


Uso objeto pois imprimo para um PictureBox tambem, para o carinha ver na tela antes de imprimir via printer...
FGSANTOS 08/08/2007 18:36:43
#230101
Esqueci de anexar o arquivo... agora foi.
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar