bom dia a todos estou com um problemaço ..comecei agora como desenvolvedor, e a primeira bucha eh gerar um txt em vb6 que sei que ja esta ultrapassado, mas estou apanhando a beça e o prazo eh ate amanha sera que poderia me ajudar me passando uma rotina mediante a analise desses dados abaixo : agradeço desde ja
Processamento do Botão G.txt
Consiste em selecionar os Clientes , as Lista de Preço e seus produtos e demais dados.
A seguir gerar os txts conforme formato abaixo fornecido pelo Andrey.
Selecionar os Clientes
Para cada cliente conforme o filtro de Clientes informado na tela obter os campos especificados abaixo e gravar o registro no formato ITP.
Registro txt no formato ITP
Haverá um registro para cada Cliente
CNPJ do Cliente :
Com cd_empresa + cd_unidade_negocio + ‘CLI’+ Código do Cliente selecionado acessar a tabela com_entidade . onde
cd_empresa = cd_empresa
cd_unidade_negocio = cd_unidade_negocio
CLI = tp_entidade
Código Informado = cd_entidade_interna
e obter o campo cd_empresa_externa e cd_unidade_negocio_externa
Com cd_empresa_externa + cd_unidade_negocio_externa acessar a tabela
com_empresa_unid_negoc_externa e obter os campos
nu_cgc_cpf
nu_cgc_estabelecimento
nu_cgc_digito
junta-los em um único campo
CNPJ = nu_cgc_cpf + nu_cgc_estabelecimento + nu_cgc_digito
Unidade ( Dyna,DynaMG,ou DynaPr)
Com cd_unidade_negocio acessar tabela ins_unidade_negocio e obter as 7 ( sete ) primeiras posições do campo nm_unidade_negocio.
Atenção : O conteúdo do campo nm_unidade_negocio deve ser alterada nas bases de dados da Dyna conforme abaixo
Unidade Descrição
0001 YNAGR
0002 YNAMG
0005 YNAPR
Razão Social ( da Empresa Unidade da Dyna )
Com cd_empresa_externa acessar a tabela com_empresa_externa e obter o campo nm_razão_social
Registro txt no formato TA1
Haverá um registro para cada Produto Cliente
Para cada Cliente selecionado e com
cd_empresa + cd_unidade_negocio + cd_lista_preço _ nu_versão , selecionar todos os cd_item da tabela pdv_lista_preço_item
Código do Produto = cd_item
Descrição do Produto = de_item
Com cd_empresa + cd_unidade_negocio + cd_item acessar tabela itm_item e obter o campo de_item
Unidade Medida = cd_unidade
Com cd_empresa + cd_unidade_negocio + cd_item acessar tabela itm_item e obter o campo cd_unidade
Preço do Produto = va_preco_unitário
Com cd_empresa + cd_unidade_negocio + cd_lista_preço + nu_versão + cd_item acessar tabela pdv_lista_preço_item e obter o campo va_preco_unitário
Obs: O Preço do Produto deve ser gravado c/ 2 pos.decimais. Se 10,55 gravar 00...0001055 ( complementar com zeros a esquerda.
Na tabela pdv_lista_preço_item o campo va_preco_unitário possui 5 posições decimais portanto as 3 últimas devem ser despresadas.
No exemplo acima , o campo va_preco_unitário estaria gravado com 000000001055000
Portanto os 3 últimos zeros devem ser suprimidos
Peso do Produto = va_peso_bruto ( Dúvida : É peso bruto ou Líquido. Verificar. ) Se for peso líquido o campo será va_peso_liquido
Com cd_empresa + cd_unidade_negocio + cd_item acessar tabela itm_item e obter o campo va_peso_bruto ou va_peso_liquido
Registro txt no formato FTP
Haverá um registro para cada Cliente fechando o Arquivo do Cliente
A quantidade de registros deverá ser a soma dos registros tipo ITP + TA1 + FTP
Arquivo a ser gravado
O nome do arquivo a ser gravado deverá ser formado por:
PC + Código do Cliente ( cd_entidade_interna ). ANS
E deverá ser gravado na Pasta definida na tabela
ins_parametros_exportacao_sintel
Campo da pasta
nm_diretorio_saida_txt_lista_preco
Formato do Lay out
Lay out de Exportação de Lista de Preço
Segmento
Pos. Inicial
pos. Final
Descrição
ITP
1
14
Identificação do Layout Fixo: ITP60001 + 5 espaços
ITP
15
29
cnpj do Cliente
ITP
30
37
Unidade ( yna,ynaMG,ou ynaPr)
ITP
38
62
Razão Social ( da yna )
TA1
1
3
Constante TA1
TA1
4
34
Código do Produto
TA1
35
60
Descrição do Produto
TA1
61
63
Unidade Medida
TA1
64
79
Preço do Produto c/ 2pos.decimais. Se 10,55 gravar 00...0001055 ( complementar com zeros a esquerda )
TA1
80
86
Peso do Produto ( Idem a valor )
FTP
1
Preencher FTP seguido de 5 zeros + total de registros com 9 zeros + 17 zeros + 94 espaços em branco
Gerar Txt Em Vb6
Started By sir_alejandro, 19/01/2011, 12:25
2 replies to this topic
#2
Posted 21/09/2017, 04:52
Isoniazid online pharmacy Viagra Dapoxetine Reviews
Cos E Il Viagra Furosemide Over The Counter Substitute Usual Dosage Of Amoxicillin
Tadalafil viagra levitra cialis Cialis 20mg Einnahme
Cos E Il Viagra Furosemide Over The Counter Substitute Usual Dosage Of Amoxicillin
Tadalafil viagra levitra cialis Cialis 20mg Einnahme
#3
Posted 01/11/2022, 04:47
com 20 E2 AD 90 20Black 20Viagra 20Pill 20 20Avis 20Sur 20Le 20Viagra avis sur le viagra Syria s opposition accuses Assad s government of carrying out a brutal campaign against Syrians that culminated in a nerve gas attack in suburbs of the capital, Damascus, on Aug stromectol singapore
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)